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ABSTRACT 


The technical feasibility of developing an expert 
system to support the assignment of squadron mainten- 
ance personnel to authorized billets is examined by 
building a prototype system. The rules used by an 
assistant maintenance officer to assign personnel are 
analyzed, and a database derived from the OPNAV 10@0/2 
and EDVR is designed. The prototype is developed for a 
micro-computer system using an expert system shell, 
Insight 2+, and is fully integrated with dBase III 


files. 


THESIS DISCLAIMER 


The reader is cautioned that computer programs 
developed in this research may not have been exercised 
for all cases of interest. While every effort has been 
made, within the time available, to ensure that the 
programs are free of computational and logic errors, 
they cannot be considered validated. Any application 
of these programs without additional verification is at 


the risk of the user. 
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INITIAL DISTRIBUTION LIST 


i= ENDRODUCT LON 


One of the duties of the assistant maintenance 
officer in an aviation squadron is to assign main- 
tenance personnel to the various squadron maintenance 
billets. Specifically, the NAMP [Ref. 1] defines his 
responsibility as: 

Determine the apportionment of maintenance personnel 
assigned to the department and monitor/coordinate 
the assignment of Temporary Additional elas (TAD ) 
personnel to other activities. 
The assistant maintenance officer must take into 
account details such as when personnel are leaving the 
seaaron, personal qualifications, training and 
aiitatlon Of the job. 

The purpose of this thesis is to demonstrate that 
it is technically feasible to build an expert system 
Which assigns aviation maintenance personnel to 
appropriate billets. The technical feasibility will be 
demonstrated by building a rule-based expert system 
prototype which accesses database files to determine 
how to assign personnel to billets. The required 
iaeuts COmsist of two database files, one which 
Semeati=snall the squadron billets, and the other holds 


all the squadron personnel information. rne OUuGowt is 


a tile Gontaining the billet, the person to be assigned 


to the billet, and, when required, the prospective 
person who will fill the billet in thirw "“e@ays or less: 

The prototype differs from expert systems which 
search several different alternatives until an accept- 
able one is found. Instead, it provides a single 
acceptable solution. It also differs from most expert 
systems in that the user interaction is done almost 
exclusively through database files with minimal 
interaction with the user. To verify the expert system 
under realistic conditions, simulated databases of 
billets and personnel from an F/A-18 squadron were 
created. 

Chapter II provides a statement of the problem 
derinit Lone It also defines the scope, objectives and 
constraints in building the expert system. Chapter [II 
describes the analysis of the problem and the initial 
rules considered for the prototype. Chapter IV 
addresses the implementation of the expert system. 
Chapter V discusses recommendations for further 
modifications of the prototype system. Chapter VI 


presents the conclusion of this project. 


II. PROBLEM DEFINITION 


The assistant maintenance officer rotates out of 
the squadron at least every three years, taking with 
him the knowledge and expertise he has accumulated. He 
is usually replaced by a less experienced person, and 
it can take up to six months to get the person trained 
to the point where he manages the functions of assign- 
ing personnel and scheduling training efficiently and 
effectively. 

me assistant maintenance officer uses information 
from several sources to make decisions as to where to 
assign personnel. One of the main documents is the 
Manpower Authorization (OPNAV 1000/2) which is the 
military manpower requirements authorized by the Chief 
of Naval Operations (CNO). It is the official or- 
ganization manning and billet authorization for a 
squadron. It identifies the billet sequence code, the 
billet/position title, designated rate, Navy Enlisted 
Classification (NEC) code, the number of persons 
authorized (basic allowance), and the planned authori- 
Zations for the next five fiscal years. 

Peaouier primary Gdocument is the BEnlisted Distribu- 
tion ama Verification Report (EDVR). This report 


hembectseall individuals assigned to the activity, 


including prospective gains. It contains a roster of 
all personnel, and includes their social security 
numbers, rates, NEC’s, date assigned to the squadron, 
projected rotation date (PRD), and the end of active 
obligated service date (EAOS). 

The assistant maintenance officer must also know 
what temporary additional duty (TAD) billets have to be 
filled. The TAD requirements vary depending on whether 
the squadron is stationed at a Naval Air Station (NAS) 
or on board a carrier. The specific requirements are 
spelled out in the appropriate NAS, wing or ship 
instructions. Most of the TAD billets are of ninety 
days duration and usually only junior personnel (E1 
through E3) are assigned to them. 

Other factors which must be taken into account when 
assigning personnel are special qualifications a person 
might have. These include collateral duty inspector 
(CDI), quality assurance representative (QAR), plane 
captain (PC), and ordnance certification. The assis- 
tant maintenance officer by virtue of his position in 
the squadron should simply know what qualifications 
each person has. The information can be also obtained 


from the monthly maintenance plan. 
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A. OBJECTIVES 

[me Obgieetive is to buildw®a pretotype expert system 
which can assign personnel to billets. hPeseutility is 
that it will improve the assistant maintenance 
officer’s decision making by offering an "expert" 
solution to the problem. It should also decrease the 
time it takes to train a new person to administer the 
program. Solving this problem is important because the 
accaenment of personnel to billets and tracking of TAD 
personnel is one of the assistant maintenance officer’s 
more time consuming activities. It involves numerous 
variables and constantly changing data, and access to 
an "expert" consultant would allow him to spend more 
time on squadron training requirements and other 


personnel matters. 


B. SCOPE 

This expert system application is limited to the 
Squadron maintenance environment and it emphasizes 
automation of one of the assistant maintenance of- 
Pocer:’ > Tunctiors. It is limited to the assignment of 
persons to suitable billets within certain constraints, 
and that the assignments it recommends are as good as 
the assignments made by an experienced person. fhe 
assignment of personnel is very subjective, and even 


acknowledged experts can have wide differences of 


ta] 


opinions. Therefore, it is not possible to prove that 
any particular assignment of personnel is the optimum 
assignment, and there is no attempt to claim that the 
expert system generated solution is an optimal 
solution. 

The project is further limited to application ona 
personal computer since most squadrons have micro- 
computers and access to larger machines on board ships 
is unlikely. In addition, relatively inexpensive 
software for expert system shells and database managers 


is readily available for micro-computers. 


C. CONSTRAINTS 

1. Hardware 

The computer hardware selected for this project 

is an IBM-PC or compatible machine. It was selected 
because of the availability of several commercial 
products for expert systems and database managers in 
the MS-DOS operating environment. The minimum require- 
ments are 512K internal memory and two disk drives. A 
hard disk drive is not necessary, however it is highly 


desirable. The prototype was built and tested on an 


IBM-AT. 
Ze software 


Waterman [Ref. 2] suggests several questions to 


consider when choosing the expert system tool. Does it 
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have the power and sophistication needed? Are the 
support facilities adequate, especially when consider- 
ing time constraints? Is it reliable and is it 
maintained? Does it have the features that will be 
required to solve the problem? 

Insight 2+ was selected as the expert system 
tool primarily because of two features: its capability 
to access dBase III files and its user-friendliness. 
Insight 2+ has a built-in programming language (DBPAS) 
which allows the knowledge base to access dBase III 
files. Insight’s similarities to Turbo Pascal and 
Wordstar make the system easy to learn. Insight 2+ 
comes with an ASCII parameter passing program written 
in Turbo Pascal which allows the user to write Turbo 
Pascal programs and pass parameters between the 
knowledge base and a compiled Turbo Pascal program. 
Also, the DBPAS programming language is very similar to 
Turbo Pascal with some modifications for the dBase [III 
Mane ttons. The text editor in Insight 2+ uses the 
Wordstar command set for editing both knowledge base 
programs and DBPAS programs. 

Iime@ehnt’s capabilities are limited to develop- 
ment of small expert systems of less than 400 rules. 
The development of this prototype was expected to be in 
the range of 1@@ rules, hence Insight was more than 


adequate to meet the requirements. 


Le 


adBase III was selected for this project because 
of its compatibility with Insight 2+. dBase III is a 
relational database, and has the capability of handling 
a typical aviation squadron database of approximately 
20® personnel. An additional consideration in choosing 


adBase III was my familiarity with it. 
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III. ANALYSIS 


The goal of the analysis phase was to determine how 
the problem should be solved. The first step in the 
process was to study the present system and obtain a 
good understanding of the physical system. The second 
step was to develop the initial rules that would form 
the basis for building the knowledge base. The last 
step was to define the data files and data elements 


used by the knowledge base. 


A. CURRENT PHYSICAL SYSTEM 

In the current system, the squadron assistant 
Maantenance officer uses information from several 
different sources before making personnel decisions. 
The information that is routinely used to determine 
which billets are authorized comes from the Manpower 
Authorization (OPNAV 1000/2) and local instructions 
which specify TAD requirements. The information from 
the OPNAV 1000/2 required by the knowledge base is the 
billet/position title, designated rate, Navy Enlisted 
Classification (NEC) code, and the number of persons 
authorized. Mie Lapel let int ermavion required by the 
knowledge base includes the billet description, number 


of days the TAD tour lasts, and the required paygrade. 
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The information that determines personnel on board 
and their qualifications comes from the EDVR and from 
internal squadron sources. The EDVR information used 
to assign personnel is the list of personnel and 
prospective gains, rate, NEC, date assigned to the 
squadron, PRD, and EAOS. Special qualifications 
include CDI, QAR, PC, and ordnance certification. 

One approach that an assistant maintenance officer 
takes is to review each billet looking for personnel 
changes. If a person is currently filling a billet 
(which is not a TAD assignment) and his PRD/EAOS are 
not within the next thirty days, then that person will 
remain in the same billet. However, if a person will 
be leaving the squadron in the next thirty days because 
of PRD or EAOS, then a replacement has to be found. in 
the case of TAD billets, if a person’s time in the 
billet exceeds ninety days, then a replacement has to 
be found. 

The assistant maintenance officer determines the 
requirements necessary to fill a position by looking at 
the work center and knowing what rates can be assigned 
to that work center. If the billet is in@werk ‘center 


110, the power plants branch, then an "AD" or aviation 


machinists mate is required. if the BbilW¥et is in work 
center 120, airframes branch, then both “AMH", aviation 
structural hydraulics, and "AMS", Aviation struc tura! 
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mechanic, personnel are required. iInework centers 12C, 
corrosion control branch, "AMS" personnel are assigned. 
In the aviation life support systems branch, work 
Cemter lSAmnequdres parachute migegers, "PR" rating, and 
work center 15B requires "AME", aviation structural 
mechanic egress, personnel. 

Aviation electronics technicians, "AT" rating, are 
assigned to work center 210, the electronics branch, 
while aviation electrician mates, "Ak", are assigned to 
work center 220, the electrical/instrument branch. The 
armament branch, work center 230, has "AO", aviation 
ordnanceman, personnel. If a billet is in work center 
260, the radar/fire control branch, then an "AQ", 
maracion Lire @ontrol technician is assigned. in che 
lime division, work centers 5190, plane captains branch, 
and 320 troubleshooter branch, persons of any rating 
can be assigned. 

Administrative personnel include "AZ", aviation 
administrationman, and "AK", aviation storekeepers, 
personnel. AZ’s are assigned to work center @4C as the 
data analyst, work center @4A as the Quality Assurance 
librarian, work center 020 as a maintenance control 
clerk, or work center 9030 as a maintenance administra- 
tion clerk. AK’s are assigned to the material control 


branch, work center 0590. 
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Other considerations in assigning personnel are 
their special qualifications. A quality assurance 
representative (QAR) should be a senior petty officer, 
preferably E6 or above, and have a well-rounded 
maintenance background. They are responsible for 
performing inspections of critical maintenance tasks 
Which require a final quality assurance inspection. 
They also monitor the performance of collateral duty 
inspectors. QAR’s are assigned to the quality assur- 
ance division, work center 9040, and typically one 
person from each production work center is required. 
For example, a squadron will usually have one QAR from 
each of the following ratings: AD, AMH or AMS, AME, AT, 
AE, AO and AQ. It is also possible to temporarily 
assign a person from a work center on a collateral duty 
basis, CDQAR, however, for this prototype CDQAR’SsS were 
not considered. A collateral duty inspector (CDI) is 
another special qualification. CDI’s are required to 
inspect all work and comply with quality assurance 
inspections required for the maintenance performed in 
their work center. CDI’s are screened very carefully 
before being designated as a CDI. Because of the time 
it takes to qualify personnel as a CDI or QAR, one of 
the assistant maintenance officer’ s priomitics 1s fo 


keep them in the corresponding work center: 
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Other qualifications ordnance certification for 
personnel in work center "230" and plane captain 
designation in work center "310". Usually, personnel 
who have these qualifications should be assigned to 
that work center. 

This is the beginning of the process to translate 
the on the job knowledge to rules for the expert 
system. In the next section, the initial rules will be 


developed based on reasoning similar to the above. 


B. DEVELOPING THE INITIAL RULES 
In developing the initial rules, there are two 
conditions which have to be met before the knowledge 
base has completed its task. The first condition is 
that the knowledge base has checked each billet in the 
billet database and a person has been assigned to the 
billet. The second condition is that the knowledge 
base has verified each person in the personnel database 
is assigned to a billet. To put the rule in a format 
samdlar to Insight 2+, it will read: 
Piatt biblets are filled 
AND all personnel are oo ee 
THEN AMO is done 
To fill a single billet the requirements are to go 
to the billet database and get the next billet, then 
Search the personnel database and find a person who 


meets the billet requirements. Also, the knowledge 


ES 


base will have to determine if it needs a prospective 
person, and, if so, find a replacement person for the 
billet. For example, the rule might be: 

IF have a billet 

AND have a person 

AND have a prospective person 

THEN one billet was filled 

Once the knowledge base has a billet, the search 

for a person to fill the billet becomes more involved. 
A person must have a rating which is appropriate for 
the work center. Also, it is generally desirable to 
assign a person to the job he is currently in. If the 
current person cannot be used, then the knowledge base 
must search for a person who meets the billet require- 
ments. Additionally, personnel with special qualifica- 
tions should be considered first for billets in work 
centers where those qualifications are desired. Some 


of the initial thoughts for rules that determine if a 


person meets the billet requir cmeiy ssh eee. Ceeer 


IF work center = "110" 

AND person’s rating = "AD" 

THEN person is eligible for billet 
IF work center = "120" 

AND billet requirement = "AMH" 

AND person’s rating = "AMH" 

THEN person is eligible for billet 
IF work center = "1206" 

AND billet requirement = "AMS" 

AND person’s rating = "AMS" 


THEN person is eligible for billet 
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hm werk center = "12C' 
AND person’s rating = "AMS" 
THEN person is eligible for 


IF work center = "112A" 
mevepersonws Yrating = "PR" 
THEN person is eligible for 


IF work center = "13B" 
AND person’s rating = "AME" 
THEN person is eligible for 


IF work center = "219" 
AND person’s rating = "AT" 
THEN person is eligible for 


IF work center = "220" 
AND person’s rating = "AE" 
THEN person is eligible for 


IF work center = "2390" 
AND person’s rating = "AO" 
THEN person is eligible for 


IF work center = "260" 
AND person’s rating = "AQ" 
THEN person is eligible for 


IF work center = "920" 

PND Trating <= "B6" 

AND person’s rating = "AZ" 
THEN person is eligible for 


IF work center = "@3@0" 
AND person’s rating = "AZ" 
THEN person is eligible for 


IF work center = "@4A" 
AND person’s rating = "AZ" 
PeeN person is eligédble ator 


IF work center = "@4C" 
AND person’s rating = "AZ" 
THEN person is eligible for 


IF work center = "@590" 


AND person’s rating = "AK" 
THEN person is eligible for 


a | 


bisvlewt 


billet 


Dil veg 


Dae 


billet 


(yelled 


ae bane at 


fo eieele Ie ts 


Dalle + 


billet 


ool 


billet 


IF billet requires an NEC 
AND person has NEC 
THEN person is eligible for billet 


IF production work center 
AND person is a CDI 
THEN person is eligible for billet 


IF work center Ment 


OR work center = "120" 
OR work center = "12C 
OR work center = "113A" 
OR work center = "13B" 
OR work center = "2190" 
OR work center = "220" 
OR work center = "230" 
OR work center = "260" 


THEN production work center 


IF work center = "@4Q" 
AND person is a QAR 
THEN person is eligible for billet 


IF work center =,"220) 
AND person is ordnance certified 
THEN person is eligible for billet 


IF work center = "310" 
AND person is a plane captain 
THEN person is eligible for billet 


IF billet is currently filled 

AND the person hasn’t been assigned 
AND PRD is ok 

AND EAOS is ok 

AND hasn’t been in the job too long 
THEN have a person 


IF billet is currently filled 

AND the person hasn’t been assigned 
AND PRD is ok 

AND EAOS is not ok 

AND person intends to reenlist 

AND hasn’t been in the job too long 
THEN have a person 
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IF have a possible person 

AND person meets billet requirements 

AND the person hasn’t been assigned 

AND PRD is ok 

AND EAOS is ok 

THEN have a person - 


IF have a possible person 

AND person meets billet requirements 
AND the person hasn’t been assigned 
AND PRD is ok 

AND BAOS is not ok 

AND person intends to reenlist 

THEN have a person 

The next requirement is to find a prospective 
person. <A prospective person is needed only if the 
current person is checking out of the squadron in 
thirty days or less. For example: 

IF have a person 

AND PRD > 35@ days from today 

AND EAOS > 3@ days from today 

THEN don’t need a prospective person 

IF have a person 

AND PRD > 3@ days from today 

AND EAOS <= 3@ days from today 

AND person intends to reenlist 

THEN don’t need a prospective person 
The same set of rules that applies to "have a person", 
as already discussed, can then be applied in searching 
mem a prospective person. 

Once all the billets have been checked, then a 
review of all squadron personnel will determine if all 
personnel are assigned. This is the last step which 
Must oe Completed prior to the knowledge base reaching 


Pic. Oa. . heed vetlves first checking the new billet 


assignments to see if that person has been assigned. If 


Ze 


the person has been assigned, then the knowledge base 
continues to the next person in the database. Other- 
wise, if the person has not been assigned, then it must 
find a work center to assign the person to. The rules 
for assigning these personnel are: 


IF person was assigned to a work center 
THEN assign to same work center 


IF person’s 
THEN assign 


IF person’s 
THEN assign 


IF person’s 
THEN assign 


IF person’s 
THEN assign 


IF person’s 
THEN assign 


IF person’s 
THEN assign 


IF person’s 
THEN assign 


IF person’s 
THEN assign 


IF person’s 
THEN assign 


IF person’s 
THEN assign 


IF person’s 
THEN assign 


rating = "AD" 
to work center 


rating = "AMH" 
to work center 


rating = "AMS" 
to work center 


ravine eek 
to work center 


rating = "AME" 
to work center 


rating = "AT" 
to work center 


rating = "Ak" 
to work center 


rating = "AO" 
to work center 


rating = "AQ" 
to work center 


rating = "AZ" 
to work center 


raving = sore. 
to work center 
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220 


230 


280 
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C. DATA DEFINITION 

After examining the physical system, the need for 
well-defined database was clear. The major consider- 
ations were selecting the key fields and defining the 
data structures for both the input data and the output. 
The data dictionary is listed in Appendix A, and the 
data file structures are in Appendix B. 

The data structure diagram (or Bachman diagram) is 
shown in Figure 3.1. It shows the relationships 


between records in the various data files. 


JOBS 


PERSONEL ee NEW_JOBS 


NEC PERSINFO REENGLIST 


teaure Set DatarStructure Diagram 
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The input data files will be discussed first. The 
squadron billet file, JOBS.DBF, contaadms the biiwe: 
number, billet description, work center, minimum 
paygrade acceptable for this billet, maximum paygrade 
acceptable for this billet, rating, the social security 
number of the person currently filling this billet, the 
social security number of a prospective person to fill 
the billet, the job length, if an NEC is required, and 
the NEC if one is required. The billet number was 
selected as the key field since it uniquely identifies 
each billet. It is also used to identify the priority 
of each billet. The smaller the billet number, the 
higher the priority, and JOBS.DBF file should be sorted 
in billet number sequence. 

The structure of this file, JOBS DBE, centainsscon 
of the information that was initially considered for 
implementation as a rule. For example, the rule: 

IF work center = "110" 

AND person’s rating = "AD" 

THEN person is eligible for billet 
can be accomplished using the database and the DBPAS 
programs. When the information from JOBS.DBF is 
retrieved, it contains the work center and the paygrade 
and rating required for the billet. The paygrade and 
rating can then be passed to the DBPAS program which 
searches the PHRSONEL.DBF file. It will then return 


only personnel who fill the paygrade and rating 
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requirements, thus meeting the conclusion "person is 
eligible for billet". The specific implementation of 
DBPAS programs is discussed more fully in chapter IV. 
Mac Gtumer semmces of input data come from four 
personnel files. In all of the personnel files, the 
key field is social security number. The PERSINFO.DBF 
file lists a person’s first, middle and last names, 
social security number, and rate. The PERSONEL. DBF 
file includes a person’s social security number, 
rating, Paygrade, date reported to the squadron, PRD, 
BAOS, current billet assignment, date started current 
billet, previous billet assignment, total days assigned 
to that billet, if person is qualified as a CDI, the 
work center where qualified as a CDI, if person is 
qualified as a QAR, if person is qualified as a plane 
captain, if person is designated as ordnance certified, 
me the person Ws’ a designated" str#ker,v~and the rating 
for which he is striking. The NEC.DBF file contains a 
person’s social security number and NEC. Since a 
person can have many NEC’s, NEC was not included in the 
PERSONEL.DBF file. The REENLIST.DBF file includes a 
Perse se sOclal security number and if he intends to 
reenlist at his BAOS. This is the only information 
which is not in the database before starting the expert 
system. If the information becomes necessary, the 


expert system prompts the user, and the result is 
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stored in the file in case it is needed for future 
reference. 

The output file is a list of billets, the person to 
be assigned to that billet, and, if necessary, a 
prospective person to fill the billet. To simplify the 
output file, NEW_JOBS.DBF, contains only the billet 
number, the social security number of the person 
assigned, and the social security number of the 
prospective person. Since the knowledge base goes 
through the JOBS.DBF file sequentially, NEW_JOBS.DBF 
will be listed in the same sequence as JOBS.DBF. If 
there are additional personnel who are not assigned 
after all billets are filled, then they are assigned to 
a work center. To simplify identification of these 
billets in the database, a billet number of 9999 is 
assigned and the work center is identified where the 
prospective person’s social security number would 


otherwise be. 
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IV. IMPLEMENTATION 


The first step taken to implement this prototype 
was to write database interface programs. The inter- 
faces are written in Insight’s DBPAS language and the 
source code is included in Appendix C. In addition, 
two Turbo Pascal programs are listed in Appendix D. 
Turbo Pascal was utilized because it could perform some 
specific functions that could not be accomplished using 
DBPAS. The next phase was writing and testing the 
expert system rules. The knowledge base listing is 
shown in Appendix E. 

The flow diagrams of the expert system are shown in 
Figures 4.1 through 4.5. They provide an overall view 
of the system implementation and show how the database 
programs interface with the knowledge base. The flow 
diagrams are intended to show the high level logical 
flow, and do not show every possible path through the 


knowledge base. 


A. DATABASE INTERFACES 
The knowledge base uses recursion to cycle through 
Miemononbr hate. A bivwer counter is incremented at 


each level of recursion anda billet end of file 


Zo 


AMO IS if system et 


DONE initialized 





and 


all billets alee 


are filled 





and 


ally personnel as 


are assigned 





and 


CALL 


PRINTOUT. PAS 





CALL 
INIT NEW.PAS 


ACTIVATE 
GET DATE.COM 


one billet 
was filled 
see Fig. 4.2) 


all billets 
are filled 


one person 
is assigned 
see Fig. 4.5) 


all persenmee 
are assigned 





Figure 4.1 Overall Knowledge Base Flow Diagram 
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one billet i have a i CALL 
is filled billet GET BILL. PAS 


have a 
person 
see Fig. 4.3 


have a 
Prospective 
person 
see Fig. 4.4 


Grau 
WRITE IT.PAS 





iene n ae Vowel lagram Fore’ one billet is filled” 
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have the 
have a ia current CALL 
person person GET PSSN.PAS 





or 


have a 
possible if CALL 
person GET PERS. PAS 





and 


CARL 
NEXT PG.PAS 


person hasnt ate CALL 
been assigned CHECK NJ.PAS 





and 


have job 
length ae ACTIVATE 
information JOB TIME.COM 





and 


intends to alaate CALL 
RBEENLIST. PAS 


reenlist 





and 
person ete CALL 
has nec CHECKNEC. PAS 





Figure 4.353 Flow Diagram For "have a person" 
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prospective 
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current 
person 


have a 
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intends to 
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has nec 





deta 
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ilies 
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CALL 
GET PSSN.PAS 


CALL 
GET PERS.PAS 


een 
NEXT _PG.PAS 


CALL 
CHECK_NJ.PAS 


ACTIVATE 
JOB TIME.COM 


CALL 
REENLIST. PAS 


CALL 


CHECKNEC. PAS 





Figure 4.4 Flow Diagram For "have a prospective person" 
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one person j have ssn 
is assigned 


person 
already 
assigned 


ale} jolene eual have ssn 
is assigned 


assign 
person 





alae 


nlite 


CAtm 
GET SSN.PAS 


CALL 
CHECK NJ.PAS 





Caan 
GET SSN.PAS 


@uinie 
GET PRSN.PAS 


CALL 
WORKVCTR. FAs 


UNI 
WRITE IT.PAS 





Figure 4.5 Flow Diagram For "one person is assigned" 
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variable identifies when all billets have been filled. 
The program GET BILL.PAS receives the billet counter 
from the knowledge base, goes directly to that record, 
and returns the billet requirements and if the end of 
file was reached. The JOBS.DBF must be packed, i.e. 
ieovelese any Geleted records, since GET BILL.PAS does 
not check for deleted records and will return whatever 
intemmation is in that record. 

Once the knowledge base has a billet, it will try 
to fill the billet using rules and the personnel 
database, PERSONEL.DBF. There are four DBPAS programs 
which get personnel data depending on the requirements. 

The module GET PSSN.PAS is used when the billet 
database, JOBS.DBF, has a person assigned as currently 
filling the billet or as a prospective person for the 
Daaiere t. The knowledge base sends a social security 
number to GET PSSN.PAS which searches the personnel 
database until it locates that record, then it returns 
all the personnel data in that record to the knowledge 
base. 

The program GET PERS.PAS is used by the knowledge 
base when it does not have a person currently assigned 
to the billet or the person who was assigned has either 
been reassigned to a higher priority billet or is 
leaving the squadron. The knowledge base sends the 


record number in the personnel database where 


Be 


GET PERS.PAS should begin the search, the desired 
rating and the paygrade. GET _PERS.PAS returns a 
boolean variable identifying if a person of that rating 
and paygrade was found, the current record number and 
the person’s data (if a record was found). If the 
knowledge base receives a person’s record, it applies 
different rules to see if that person meets all the 
requirements of the billet. If the person meets all 
the requirements, then he is assigned to the billet; 
otherwise the knowledge base increments the personnel 
record counter, and calls GET _PERS.PAS which starts the 
Search again. If GET _PERS.PAS did not locate a person 
with the right rating and paygrade, the knowledge base 
will call another module, NEXT PG: PAs  Svwhichetecciwas = 
the current paygrade and returns the next lower pay- 
grade. Then the knowledge base uses rules to check if 
the new paygrade is greater than or equal to the 
minimum requirements of the billet. If it is, then the 
knowledge base resets the personnel record counter to 
the beginning of the database and calls GET _PERS.PAS to 
continue searching for a person with the right rating 
and paygrade. 

The other two program which get personnel data are 
GET SSN.PAS and GET PRSN.PAS. Both eanewuicedatommchec. 
if all personnel have been assigned. Once the knowl- 


edge base has completed all billet assignments, it uses 
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recursion to repeatedly check the personnel database to 
ensure all personnel have been assigned. It begins by 
initializing the personnel record counter and calling 
GET _SSN.PAS which returns the person’s social security 
number and a boolean variable indicating if the end of 
file was reached. The knowledge base sends the 
person’s social security number to GET_PRSN.PAS which 
cnecks the NEW _JOBS.DBF to see if that social security 
number has been assigned to a billet. If so, the 
knowledge base increments the personnel record counter, 
and repeats the process until the end of the personnel 
file is reached. If the person has not been assigned 
to a billet, then the knowledge base calls GET_PRSN.PAS 
which gets the person’s record from the personnel 
database so that the knowledge base can apply the 
necessary rules to assign this additional person toa 
none Ccenvcer . 

During the process of assigning the additional 
personnel, the knowledge base applies information such 
as the previous billet held, the work center and the 
job length. When the program WORK CTR.PAS is called, 
it receives a billet number, searches through the 
JOBS.DBF file and returns the work center and the job 
length of that particular billet. 

iWiemmoaure, WRiTH EM PAS, is used anytime the 


knowledge base has matched a billet to a person and a 


DE 


prospective person. The program receives the bile: 
number, the person’s social security number and the 
prospective person’s social security number and appends 
the NEW_JOBS.DBF file. 

The knowledge base calls CHECK_NJ.PAS when it has a 
possible person to assign to a billet and it wants to 
verify that the person has not been previously assign- 
ed. CHECK _NJ.PAS receives a social security number and 
checks every record in the NEW JOBS.DBF file trying to 
match social security numbers. If sit. findsmawsmawiehs 
then it returns a boolean variable of true; otherwise 
it returns a value of false. 

The program CHECKNEC.PAS is used to determine if a 
person has an NEC which is required for a particular 
billet. CHECKNEC.PAS receives a person’s social 
security number and the required NEC, then it searches 
NEC.DBF trying to match of both the social security 
number and NEC. If it finds agmatenea i clae iano! 
boolean value of true; otherwise it returns a value of 
false. 

The module REENLIST.PAS is utilized by the knowl- 
edge base when it has a possible person to fill a 
billet, but the person’s BAOS is less than thirty days 
from today’s date. The module performs two functions. 
The first one is to query the user or the REENLIST.DBF 


file as to the person’s reenlistment intention and to 
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return that information to the knowledge base. The 
second function is to write the social security number 
and the person’s reenlistment intention to the 
REENLIST.DBF file after the user has been queried. 
This allows possible future queries for the same social 
security number to be answered from the data file, 
Bopmer than requesting the information again from the 
user. The program receives a social security number 
and searches the REENLIST.DBF for a match. If a match 
is found, then it returns the person’s reenlistment 
intention. If no match is found, then it searches the 
PERSINFO.DBF to obtain the person’s name and rating. 
The program then queries the user in the format "Does 
AZ2 John Adams intend to reenlist? (Y/N)". The 
response is appended to the REENLIST.DBF and returned 
to the knowledge base. 

When the knowledge base has completed assigning all 
billets and personnel, it displays the new billet 
assignments using PRINTOUT.PAS. The desired format is 
tLomdraplaye ure DIillet description, the work center, the 
Derson’ s rate and last ndaifie. If a prospective person 
momrcau~reca, then the next line displays "replacement 
is" and the person’s rate and name. Pentout. PAS uses 
three database files, NEW_JOBS.DBF, JOBS.DBF and 
PERSINFO.DBF, to get the required information. The 


DBPAS language does not have the facilities to send the 
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output to the printer, so the Outpun ge vonly Wasp layca 
on the screen. 

The last DBPAS program is INIT _NEW.PAS and it 
initializes two databases, NEW_JOBS.DBF and 
REENLIST.DBF. All records in both data files should be 
deleted prior to starting the knowledge base. The 
preferred method to initialize the databases is to use 
dBase III to delete all records and pack the databases. 
The dBase command "Zap" will accomplish this in one 
step. 

The module INIT NEW.PAS checks both databases and 
deletes any records that exist, however it cannot pack 
the database. So any records that exist in 
NEW _JOBS.DBF or REENLIST.DBF prior to starting the 
knowledge will be marked for deletion, but will 
actually still exist in the database. Not packing the 
databases will cause NEW _JOBS.DBF to grow by approx- 
imately 18@ records every time the knowledge base is 
run. This will cause slower response times when the 
knowledge base calls CHECK NJ.PAS to, determine if a 


person has already been assigned. 


B. TURBO PASCAL INTERFACES 
Two Turbo Pascal functions were written to perform 
special functions. Both pregramssutieeize IinemenG 2. =. 


parameter passing program, ASCIIPRM.PAS, and the 
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programs will not compile without it. The ASCIIPRM. PAS 
source file is a part of the Insight 2+ package and is 
not included in the appendices. The program 

GET DATE.PAS was written to gain access to the system 
clock, so the system would not have to query the user 
for the date. It returns the current date and what the 
date will be thirty days from current date, since this 
mas decided on as the planning horizon for this 
BReGoOtype . 

The other Turbo Pascal program, JOB TIME.PAS, is 
used by the knowledge base to determine if a person has 
exceeded the job length requirement at his current 
Dillet. This is especially critical in TAD assignments 
where people are rotated every ninety days. The 
mreecram receives the start date, the current date and 
the job length from the knowledge base and returns two 
boolean values, (1) if the job length has been exceeded 
and (2) if the job length will be exceeded in thirty 
days. The program necessitated the use of Turbo Pascal 
rather than DBPAS because of the requirement to convert 
a character string to a number. The file PERSONEL.DBF 
contains the date a person started his current billet, 
and, when accessed by a DBPAS program, the date is 
returned as a character string in the form "1987@215". 
To determine if a person has exceeded the job length, 


Miemi7Obeatart Gate and the current date are converted 
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to integers for year, month and day, and then actual 
amount of time the person has spent in the billet is 
calculated. This number is then compared with job 
length to determine if job length has been exceeded. 

It checks if the job length will be exceeded in the 
next thirty days by taking the actual time spent in the 
billet and adding thirty to it, and then comparing this 


number to job length. 


C. KNOWLEDGE BASE 
The knowledge base, AMO.PRL, has a single goal, 

AMO_ IS _ DONE. The goal is reached by accomplishing 
three tasks: all billets are filled, all personnel are 
assigned, and the final results are displayed. The 
control structures for both “all _ biltets are iiitted® 
and "all _ personnel are assigned" are, accomplished wsine 
recursion. An example of the structure is: 

IF one billet is filled 

AND ete ee resect emma leer 

THEN ali io eC Saeeee elec 
The stopping condition for the recursion is: 


Te Dd ee 6 ieee Of edad 
DE a eel eel scl ge mee a etd 


During implementation, the program kept getting an 
error message, possible infinite recursion detected, 
which was caused by exceeding the number of levels of 


recursion allowed by Insight. The rules were modified 
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to reduce the number of recursive calls by assigning 
approximately twenty billets to be filled for every 
level of recursion. 

Once the knowledge base has a billet, it must start 
searching through the database to find an appropriate 
person. The first rules deal with checking the current 
person in the billet to see if that person is still 
available to fill the billet and to check that the 
person has not exceeded the job length. If there is no 
one currently filling the billet or the person who was 
filling the billet is not available, then the knowledge 
base must start searching through the database to find 
someone to fill the billet. Two simplifications were 
made during the implementation of the prototype. The 
first was to assign the most senior person in paygrade 
to the billet, and the second was to write "none found" 
if the knowledge base had completed a thorough search 
aiemo ome Could be found to fill the billet. MThe 
knowledge base initializes the desired paygrade to the 
maximum allowable paygrade for that billet and searches 
through the database until it finds a person. [ft we 
one is found, then it desired paygrade is reduced by 
one paygrade and the search continues. Fwmae Ones 
found, it decreases the desired paygrade until it is 


less than the minimum allowable paygrade for that 
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billet, and it instead of identifying a social security 
number, it will write “none found". 

The knowledge base takes into account special 
qualifications in its search by only looking for 
personnel with the desired qualifications during its 
first pass through the database. For example, ina 
production work center which has CDIs assigned, 
assigning CDI’s to work centers takes precedence over 
other considerations. The knowledge base takes this 
into account by searching the database for a CDI and 
only after it has found no CDIs available, will it 
restart the search for some one who is not a CDI. 
Although it normally assigns the person with the 
highest paygrade, since CDIs take precedence in 
production work centers, it will assign a lower 
paygrade person who is a CDI over a higher paygrade 
person who is not a CDI. For example, it will assign 
an E4 who is a CDI before it assigns an E5 who is not a 
CDI to a production work center billet. The knowledge 
base follows this same logic in making assignments to 
work centers which require special qualifications such 


as QAR, ordnance certified or plane captain. 
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V. RECOMMENDATIONS FOR FURTHER STUDY 


Capturing the knowledge that assistant maintenance 
officers use in assigning personnel is a complex and 
time consuming task. This prototype utilizes only a 
limited part of the actual decision process. The 
prototype requires significant testing in real world 
situations and knowledge acquisition from experts to 
more fully represent all aspects of the process. 

Once a prototype has been completed, Harmon and 
King [Ref. 3] state: 

An adage popular among knowledge engineers is that 
it is usually best to throw away the prototype. 
Knowledge engineering tools support rapid 
prototyping with a low investment of time. Thus, 
at this stage it is common to rethink the basic 
design of the knowledge base. By this we do not 
mean that one abandons a particular tool. We mean 
mitt the exace list of objects and attributes to be 
included in the system will probably change 
somewhat. Hierarchial relationships may need to be 
arranged. The exact way in which inference is 
handled in the heuristics may be modified as the 
expert and the knowledge engineer realize how the 
expert’s knowledge and problem solving strategies 
can be best represented. 
Based on the experience gained in building this expert 
System, some significant modifications to the existing 
prototype can be recommended. The first major change 
should be to expand the expert system to include all 


projected billet changes for the next six months. iLi9) 


developing the prototype system, a planning factor of 
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thirty days ahead was considered sufficient. However, 
for development of a full-scale model that more closely 
resembles real world planning, a time frame of six 
months in advance is necessary. 

The second major change would be to modify the 
overall control structure of the prototype. Rather 
than trying to assign a person to every billet in the 
database, it would be more logical to scan through the 
billet file and determine every billet that is not 
currently filled or will be vacated in a future period 
of time, i.e. the next six months. An output file, 
listing the billet number and the date the billet will 
be vacated, would be written to the disk. Four of the 
basic rules to determine if a billet will be vacated 
would be similar to the following: 


IF billet is currently vacant 
THEN billet will be vacated 


IF current person’s prd <= 6 monthoesomearoday 
THEN billet will be vacated 


IF current person’s eaos <= 6 months from today 
AND person does not intend to reenlist 
THEN billet will be vacated 


IF job start date + job length <= 6 months from today 
THEN billet will be vacated 


The next task would be to search through the 
personnel data base and find all personnel who are not 
currently assigned to a billet, or are returning froma 


TAD assignment within the next six months. This would 
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include person’s who have not yet checked-in to the 
Squadron, but appear on the EDVR as prospective gains. 
A file would then be written to the disk with the 
expected personnel gains and the expected dates. 

The final task would be to match the projected 
vacant billets with the anticipated gains. A search 
algorithm could be used to arrive at a solution which 
offers the fewest vacancies. An additional consider- 
ation would be to add rules that would weight the 
piety vacancies. Higher priority billets would "cost" 
more to be left vacant than lower priority billets and 
a search algorithm would produce the least "cost" 

SonL lon . 

A third change to the current prototype would be to 
Simplify the rules. Most of the current rules are 
long, complicated and not easy to follow. The rules 
could be simplified by combining several related factor 
into classification type rules. For example, the 
person’s report date, PRD and EAOS could all be 
combined to yield a single classification that can be 
used by other rules. Sample rules which would fit into 
the current prototype might be: 

IF report date <= today’s date 
AMD PRD > date in one month 


AND EAOS > date in one month 
THEN person’s tour remaining = long 
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IF report date <= today’s date 

AND PRD > date in one month 

AND EAOS <= date in one month 

AND person intends to reenlist 

THEN person’s tour remaining = long 

IF report date <= today’s date 

AND PRD > date in one month 

AND BAOS <= date in one month 

AND NOT person intends to reenlist 

THEN person’s tour remaining = short 

IF report date <= today’s date 

AND PRD <= date in one month 

THEN person’s tour remaining = short 
This type of classification would also be useful in an 
expert system which was included all personnel changes 
within a six month time frame. 

An area which is related to assigning of personnel 
to billets and is another major function of the 
assistant maintenance officer is maintenance training. 
The expert system could be expanded to include training 
requirements for particular billets and a database of 
the courses which personnel have successfully complet- 
ed. Additionally, a database containing the course 
schedules could also be included, and training require- 
ments could not only be identified, but course 
scheduling could also be accomplished. 

Another recommendation is to perform extensive 
field testing of the prototype and have human "experts" 
point out mistakes. The mistakes would identify what 


knowledge was lacking, and then additional knowledge 


would be added to overcome its shortcomings. The 
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prototype has not been tested extensively and cannot be 
considered an "expert" until comprehensive testing has 
been accomplished. 

The knowledge base prototype accesses dBase III 
files for billet and personnel data. However, there is 
no database program to assist the user in editing, 
appending or deleting records in the database. The 
implementation of an easy-to-use database manager would 


be essential prior to field testing of the prototype. 
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VI. CONCLUSION 


The Navy currently does not have any tools for 
automating the decision-making process for aviation 
maintenance personnel. Many of the criteria that are 
used to assign personnel in squadrons are readily 
captured ina heuristic knowledge base. 

This project demonstrated that it is technically 
feasible to capture the knowledge an assistant main- 
tenance officer uses to assign personnel ina knowledge 
base. Additionally, it demonstrated that a database 
created from the OPNAV 1000/2 and EDVR data can be 
integrated into an effective tool for matching autho- 
rized billets and personnel. Further work should be 
done to fully implement such a system, not to replace 
the assistant maintenance officer, but to enhance his 


decision making. 
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APPENDIX A 


DATA DICTIONARY 


Name: billet counter 
Aliases: femmes 
Description: Represents the record number of the 


billet which the knowledge base is 
GurrenGly try ime. CO same. 

Format: Integer, 4 digits. 

Module/Files: AMO.PRL, GET BILL.PAS 


Name: billet description 

Aliases: j COmdeScry, sj Opmdecerp 

Description: Describes the type of billet, i.e. 
Supervisor, technician, etc. 

Format: Integer, 4 digits. 

Module/Files: AMO.PRL, GET BILL.PAS, PRINTOUT.PAS, 
WORK CTR.PAS, JOBS.DBF 


Name: billet eof 

Aliases: endoffile 

Description: Identifies if the end of JOBS.DBF has 
been reached. 

Format: Boolean, allowable values T or F. 

Module/Files: AMO.PRL, GET BILL.PAS, CHECK_NJ.PAS 


Name: billet number 
Aliases: eles eee eles 
Description: Identifies squadron billets; it also 


signifies the priority of the billet, 
lower numbers are higher priority 
billets. 

Bernat. integer, > dilszits., MuUtbersearec in 
increments of 190. 

Module/Files: AMO.PRL, INIT NEW.PAS, WRITE IT.PAS, 
GET _BILL.PAS, CHECK NJ.PAS, WORK CTR.PAS, 
PRINTOUT.PAS, JOBS.DBF, NEW_JOBS.DBF 


a2 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


billet rating 

rating, rating in 

Represents the rating required by that 
particular billet. 

Alphanumeric, 3 characters, allowable 
values AZ, AV, AT, AE, AQ, AD, AM, AMH, 
AMS, AME, AO, PR, ANY. 

AMO.PRL, GET Ment. PAS, GET PERS. PAS, 
WORK CTR. PAS, PRINTOUT. PAS, JOBS. DBF 


cdi 

None 

Identifies if a person is qualified as a 
collateral duty inspector (CDI) 

Boolean, allowable values T or F. 
AMO.PRL, GET PERS.PAS, GHT PSSN.PAS, 

GET SSNSPAS , GET _PRSN. PAS, PERSONEL. DBF 


cdi for work center 

cdi_wec 

Identifies the work center where a person 
is qualified as a CDI. 


Alphanumeric, 3 characters, allowable 
values 11@, 12@, 12C, 13A, 13B, 219, 220, 
23@, 260, 280. 


AMO.PRL, GET PERS.PAS, GET PSSN.PAS, 
GET_SSN.PAS, GET _PRSN.PAS, PERSONEL. DBF 


current job 

Clie ob 

Identifies the billet number of the 
billet a person is currently assigned to. 
Integer, 4 digits. 

AMO oP Rin, GH PhRo. PAS , Gh PSSN.PAS, 

GET SSN.PAS, GET PRSN. PAS, PERSONEL. DBF 


Gurrent ssn 

curr ssn, curr_pers, assign_ssn 
Represents the social security number of 
the person currently assigned toa 
Daneieular billet. 

Alphanumeric, 11 characters, ###-##-####. 
AMO.PRL, INIT NEW.PAS, GET_BILL.PAS, 

GET PSSN. PAS, ~ CHECK _ NJ. PAS, WORK CTR.PAS, 
PRINTOUT. PAS, WRITE _ IT.PAS, JOBS.DBF, 
NEW_JOBS.DBF 


Do 


Name: 
Aliases: 
Description. 


Format: 


Module/Files: 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


Name: 
Aliases: 
Déscrip pilen- 


Format: 


Module/Files: 


date plus one month 

date3@ 

Represents the date 3@ days from today’s 
Ganger 

Alphanumeric, 8 characters, 
example 19870131. 

AMO.PRL, GET DATE. PAS 


YYY YMVD DD aaer. 


date reported 

date rpt, dave reptd 

Represents the date a person checked into 
the squadron. 

Alphanumeric, 8 characters, 
example 19870131. 

AMO.PRL, GET BILL.PAS, GET PSSN.PAS, 
GET_SSN. PAS, GEDPSPRSN. PAS, PRINTOUL SEAS. 
PERSONEL. DBF 


YYYYMMDD, for 


desired paygrade 

paygr, payed 

Represents the paygrade of the billet 
which the Knowledge base is currently 
trying tovrr lie. 
Alphanumeric, 2 characters, 
values k1 through E9. 
AMO.PRL, GET PERS.PAS, NEXT PG. PAS 


allowable 


eaos 

None 

Represents a person’s end of obligated 
active service (EAOS) date. 
Alphanumeric, 8 characters, 
example 19870131. 

AMO.PRL, GHTDPHRS PAs soot taooN sb Ais. 

GET SSN@PAS, GETOPRSN a so, RINTOUT SPAS. 
PERSONEL. DBF 


YYYYMMDD >for 


exceeded Web enact 

exceeded 

Identifies if a person has been in the 
billet the maximum amount of time 
required; usually pertains to TAD billets 
of 9@ days duration. 

Boolean, allowable values T or F. 
AMO.PRL, JOB TIME.PAS 
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Name: 
Aliases: 
Description: 
Format: 
Module/Files: 
Name: 
Aliases: 
Description: 


Pormat : 
Module/Files: 


Name: 
Aliases: 
Description: 


Format: 
Module/Files: 


Name: 
Aliases: 
Description: 
Boermat: 
Module/Files: 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


Name: 
Aliases: 
Description: 
Format: 
Module/Files: 


first name 

None 

Identifies a person’s first name. 
Alphanumeric, 15 characters. 
PRINTOUT.PAS, REENLIST.PAS, PERSINFO.DBF 
intends to reenlist 

imbentiom, intent, r intent - 
Identifies if a person intends to 
reenlist. 

Boolean, allowable values T or F. 
AMO.PRL, REENLIST.PAS, REENLIST.DBF, 
INIT NEW. PAS 


job length 

job_length, job_lngth 

Identifies how long (number of days) that 
a job lasts, i.e. TAD billets are usually 
90 days. 

Integer, 4 digits. 

AMO.PRL, GET _BILL.PAS, WORK_CTR. PAS, 
PRINTOUT.PAS, JOB _ TIME.PAS, JOBS.DBF 


last_name 

None 

Identifies a person’s last name. 
Alphanumeric, 15 characters. 
PRINTOUT.PAS, REENLIST.PAS, PERSINFO.DBF 


maximum paygrade 

maxpaygr, max payer 

Represents the highest allowable paygrade 
fOr a particular billet. 

Alphanumeric, 2 characters, allowable 
values E1 through EQ. 

AMO.PRL, GET BILL.PAS, WORK CTR.PAS, 
PRINTOUT.PAS, JOBS.DBF 


middle nam 

None 

Identifies a person’s middle name. 
Alphanumeric; 1> characters . 

PRINTOUT. PAS, REBENLIST.PAS, PERSINFO.DBF 


Se 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


Name: 
Aliases: 
Description: 


Format: 
Module/Files: 


Name: 
Aliases: 
Description: 


Format: 
Module/Files: 


Name: 
Aliases: 
Description: 
person 
Formac: 
Module/Files: 


Name: 
Aliases: 
Description: 


minimum paygrade 

minpaygr, min_payegr 

Represents the lowest allowable paygrade 
for a particular billet. 

Alphanumeric, 2 characters, allowable 
values E1 through E9. 

AMO.PRL, GET BILL.PAS, WORK CTR.PAS, 
PRINTOUT.PAS, JOBS.DBF 


nec code 

nec code, nec 

Represents the Navy Enlisted Classifi- 
cation (NEC) code which identifies a 
person’s particular skill. 

Integer, 4 digits. 

AMO.PRL, GET _BILL.PAS, WORK_CTR. PAS, 
PRINTOUT.PAS, CHECKNEC.PAS, NEC.DBF, 
JOBS.DBF 


nec found 

necr ind 

Identifies if the NEC was found in the 
NEC.DBF file. 

Boolean, allowable values T or F. 
AMO.PRL, CHECKNEC. PAS 


nec required 

nec reqd 

Identifies if the billet requires a 
with a specific NEC. 

Boolean, allowable values T or F. 
AMO.PRL, GET BILL.PAS, WORK CTR.PAS, 
PRINTOUT.PAS, JOBS.DBF 


ordnance certified 
OnGmcers 
Identifies if a person is qualified to 


handle ordnance. 


Format: 
Module/Files: 


Boolean, allowable values T or F. 
AMO.PRL, GET PERS.PAS, GET PSSN.PAS, 
GET _SSN.PAS, GET PRON.PAS, PERSONEL.DBF 
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Name: 
Aliases: 
Description: 
Hormat : 


Module/Files: 


Name: 
Aliases: 
Description: 


rmormat : 
Module/Files: 


Name: 
Aliases: 
Description: 


Format: 
Module/Files: 


Name: 
Aliases: 
Description: 


Fommat: 
Module/Files: 


Name: 
mliases: 
Description: 
Format : 


Module/Files: 


paygrade 

None 

Represents the person’s paygrade. 
Alphanumeric, 2 characters, allowable 
values 51 through B9. 

AMO.PRL, GET _PERS.PAS, GET PSSN. PAS, 
GET _SSN.PAS, GET PRSN.PAS, PERSONEL.DBF 


person assigned 

None 

Identifies if a person has already been 
assigned to a billet. 

Boolean, allowable values T or F. 

AMO. PRL 


personnel counter 

ie em Cla elle weet © Ct 

Represents the record number of the 
person that the knowledge base is 
currently trying to match with a billet. 
Integer, 4 digits. 

AMO.PRL, GET _PERS.PAS, GET _PSSN. PAS, 
GET SSN.PAS, GET PRSN. PAS 


personnel eof 

endoffile 

Identifies if the end of file has been 
reached in the PERSONEL.DBF. 

Boolean, allowable values T or F. 
AMO@PRE, GEE SSN.PAS 


persons rating 

rating 

Represents a person’s rating. 
Alphanumeric, 3 characters, allowable 
values AZ, AV, AT, AB, AQ, AD, AM, AMH, 
AMS, AME, AO, PR, NON. 

AMO.PRL, GET PERS.PAS, GET PSSN.PAS, 
GET _SSN.PAS, GET PRSN.PAS, PERSONEL.DBF 


Se 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


Name: 
Aliases: 
Descrapt1 on ; 


Format: 


Module/Files: 


Name: 
Aliases: 
Description: 


Format: 
Module/Files: 


Name: 
Aliases: 
Description: 


Format: 
Module/Files: 


Name: 
Aliases: 
Description: 


Format: 
Module/Files: 


plane captain 

plane _capt, pc 

Identifies if a person is qualified as a 
plane captain. 

Boolean, allowable values T or F. 
AMO.PRL, GET PERS.PAS, GET _PSSN.PAS, 

GET _SSN.PAS, GET _ PRSN.PAS, PERSONEL. DBF 


Dina 

None 

Represents a person’s projected rotation 

date (PRD). 

Alphanumeric, 8 characters, YYYYMMDD, for 
example 19870131. 

AMO.PRL, GET PERS.PAS, GET PSSN.PAS, 

GET SSN.PAS, GET PRSN.PAS, PRINTOUT.PAS, 

PERSONEL. DBF 


previous job 

prev_job 

Identifies the billet number of the 
billet a person was previously assigned 
to before his currently assignment. 
Integer, 4 digits. 

AWIO.PRL, GET PRERS.PAS, Git PosNn@eaAs, 
GET_SSN.PAS, GET PRSN.PAS, PERSONEL.DBF 


prospective ssn 

pros _ssn, pros_pers, future_ssn 
Represents the social security number of 
the person who is going to be assigned to 
the billet within the next 30 days. 
Alphanumeric, 11 characters, ###-##-####. 
AMO.PRL, INIT NEW.PAS, GET BILL. PAS, 
WRITE _ IT. PAS, WORK CTR. PAS, CHECK _NJ.PAS, 
PRINTOUT.PAS, JOBS.DBF, NEW JOBS. DBF 


qar 

None 

Identifies if a person is qualified as a 
quality assurance representative. 
Boolean, allowable values T or F. 
AMO.PRL, GET PERS - Pac, Gal Poona PAs, 

GET _ SSN.PAS, GET PRSN.PAS, PERSONEL.DBF 
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Name: 
Aliases: 
Rescription: 


Format: 


Module/Files: 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


rate 

None 

Represents a person’s rate, 
AZ3, ATAA, AMCS, etc. 
Alphanumeric, 5 characters. 
PRINTOUT.PAS, REENLIST. PAS, 


for example: 
PERSINFO.DBF 


social security number 

ssn 

Represents the person’s social security 
number. 

Alphanumeric, 11 characters, ###-##-####. 
AMO.PRL, GET _PSSN.PAS, CHECK_NJ.PAS, 

GET _SSN.PAS, GET PRSN.PAS, PRINTOUT.PAS, 
REENLIST.PAS, CHECKNEC.PAS, INIT NEW.PAS, 
REENLIST.DBF, NEC.DBF, PERSINFO.DBF 


ssn was found 

ssn_fnd 

Identifies if a ssn was found while 
searching through the PERSONEL.DBF. 
Boolean, allowable values T or F. 
AMO.PRL, GET PERS.PAS, GET _PSSN.PAS, 
GET PRSN. PAS 


Start date 

start_dt, start_date 

Represents the date a person started his 
Current billet assignment. 
Alphanumeric, 8 characters, 
example 19870131. 

AMOR, GHTSPERS2PAS, GEPUPSSN.PAS, 

GET SSN.PAS, GET _PRSN.PAS, JOB_ TIME. PAS, 
PERSONEL. DBF 


Poor MIMD. “Lor 


striker 
None 
Identifies 
particular 
who are 5&1 
designated 
Boolean, allowable values T or F. 
Oe eaeob baer bho PAS GET OPSSON.PAS, 
GET SSN.PAS, GET _PRSN.PAS, PERSONEL.DBF 


fiwiepersOnetomstriking for a 
ratte; applies» to personnel 

through B3 and do not have a 

rating. 


ae 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


Name: 
Aliases: 
Description: 


Format: 
Module/Files: 
Name: 


Aliases: 
Description: 


Format: 
Module/Files: 


Name: 
Aliases: 
Description: 


HoremMmat: 
Module/Files: 


Name: 
Aliases: 
Description: 


Format: 


Module/Files: 


striker rating 

str_rating, str_rate 

Represents the rating a person is 
striking for. 

Alphanumeric, 3 characters, allowable 
values AZ, AT, AB, AQ, AD, AMH, AMS, AME, 
PORN 

AMO.PRL, GET_PERS.PAS, GET _PSSN. PAS, 
GET_SSN.PAS, GET _PRSN.PAS, PERSONEL. DBF 


todays date 

today_date, date 

Represents today’s date which is 
obtained from the system clock. 
Alphanumeric, 8 characters, YYYYMMDD, for 
example 19870131. 

AMO.PRL, GET _DATE.PAS, JOB TIME. PAS 


total days in previous job 

total days, tot_days 

Represents the total number of days a 
person was assigned to the job he held 
prior to his Current joOo- 

Integer, 4 digits. 

AMO.PRL, GET _PERS.PAS, GET _PSSN. PAS, 
GET SSN.PAS, GET PRSN.PAS, PERSONEL.DBF 


total tad time 

tad_time, tot_tad 

Represents the total number of days a 
person has been assigned TAD from the 
squadron. 

Integer, 4 digits. 

AMO.PRL, GET PERS.PAS, GET PSSN.PAS, 
GET SSN.PAS, GET PRSN.PAS, PERSONEL.DBF 


work center 

work cntr, workcenter 

Represents the work center that 
corresponds to the billet. 
Alphanumeric, 3 characters, allowable 
values @20, @30, @40, @O4A, B@4C, O50, 100, 
110, 120, 12C, 13A,813585 G20, 210. 
220, 230, 2680, 280," 3500p, 520, 157. 
CCU, CMC, IMA, SAF, SUP, TNG, TAD. 
AMO.PRL, GET BILL.PAS, WORK _CTR. PAS, 
PRIN@TOUT.PAS, JOBS2bEr 
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APPENDIX B 


DATABASE STRUCTURE 


The structure of the six database files which are 
accessed by the expert system are listed below. 


Structure for: JOBS.DBF 


Aliases: billet, jobsfile 

Modules: GET BILL.PAS, WORK CTR.PAS, 
Field name Type Width 
BILLET NR Numeric 4. 
JOB DESCRP Character 20 
WORKCENTER Character 2 
MIN PAYGR Character 2 
MAX PAYGR Character 2 
RATING Character 2 
CURR_PERS Character 11 
PROS PERS Character a 
JOB LENGTH Numeric “: 
NEC_REQD Logical 1 
NEC Numeric A 


Structure for: PERSINFO.DBF 


Aliases: personnel 

Modules: REENLIST.PAS, 
Field name Type 
LAST NAME Character 
FIRST NAME Character 
MIDDLE NAM Character 
SSN Character 
RATE Character 
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PR Enourt. PAS 


Width 
We 


je 
12 
11 


LO} 


PRINTOUT. PAS 


Structure for: PERSONNEL. DBF 


Aliases: persfile 
Modules: GET_SSN.PAS, GET _PERS.SSN, GET _PSSN. PAS 
GET _PRSN. PAS 
Field name Type Width 
SON Character 11 
RATING Character 2 
PAYGRADE Character 2 
DATE REPTD Date 8 
PRD Date 8 
BAOS Date 8 
CURR_JOB Numeric + 
START DATE Date 8 
PREV_JOB Numeric 4. 
TOT DAYS Numeric 4 
CDI Logical 1 
CDI_WC Character 5 
QAR Logical 1 
PLANE CAPT Logical 1 
ORD_CERT Logical 1 
STRIKER Logical 1 
STR_RATING Character ee 
TOT TAD Numeric 4 


Structure for: REENLIST.DBF 


Aliases: ee het 

Modules: REENLIST.PAS, INIT NEW. PAS 
Field name Type Width 
SON Character 17 
INTENT Logical 1 

Structure for: NEC.DBF 

Aliases: necfile 

Modules: CHBECKNEC. PAS 
Field name Type Width 
SON Character 11 
NEC Numeric 4 
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—— eee 


Ssumnacture for: 


NEW_JOBS.DBF 


Aliases: assign, newjobs 
Modules: INIT NEW.PAS, CHECK_NJ.PAS, 
PRINTOUT.PAS, WRITE_IT.PAS 
Field name yo e Width aes 
BILLET NR Numeric 3 
CURR_SSN Character tri 
PROS_SSN Character ies 
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APPENDIX C 


DBPAS PROGRAMS 


program CHECK_NEC(RECEIVE ssn 2 string@ii>:; 
nec : integer ; 
RETURN nec _fnd : boolean); 


var 
necfile 
ssn 
nec 
end; 


record 
Sit haa. (tele): 
real; 


ee 6¢0 08 


begin 
open( necfile, ’nec’); 
goto( 1, necfile); 
while NOT EOF(necfile) AND ((necfile.ssn <> ssn) 
OR (ROUND(necfile.nec) <> nec)) do 
begin 
NEXT(necfile); 
end; 
nec fnd := NOT EOF(necfile); 
close(necfile); 
end; 
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program CHECK NJ( RECEIVE ssn wesw ime ( 11»): 
RETURN assigned : boolean); 


var 
assign : record 
D1 Bie Ca ete Cal; 
CUneesccu. « strime (17 ),; 
Dros ssn. ° string (1); 
ena: 
begin 


open(assign, ’new_jobs’ ); 
goto(1, assign); 
while NOT EOF(assign) AND 
((assign.deleted = true) OR 
((assign.curr_ssn <> ssn) AND 
(assign.pros_ssn <> ssn))) do 
begin 
NEXT(C assign); 
end; 
assigned := NOT EOF(assign); 
close(assign); 
end; 
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program GET BILL(RECEIVE file_ctr 


var 


billet 
bille 


job_descrp : 


workc 


RETURN 


record 
tonr =: 


enter 


min payer 
max payer 
rating 

curr _pers 
pros_pers 


job _length 


nec_reqd 
nec 


- Sstrinc 

¢ Str ime 
string( 
string( 
real; 


real; 
string(2@ 
string(3) 
string(2); 
2 ) 
SB) 
11 
11 


bade te 
job_descr 
work _cntr 
minpayegr 
maxpaygr 
rating 
curr pers 
pros _pers 
job_lngth 
nec reqd 
nec _code 
endoLriire 


we 


wee “ee OO OH WO WO NY 


we we 


boolean; 


real; 


end; 


begin 


open( bil 


if EBOF(bi 
then 


beg 


end 


else 


let, 


llet) = 


in 
billet_nr 
Jobe cecer, 
work _cntr 
minpayegr 
maxpayegr 
Pravin )<— 
curr _pers 
pros_pers 
job_Ingth 
Nee wae Gc 
nec _code 


~ tt il 


jobs?) 
gototrile ctr; bilder): 
nt el 


66 


igh C S¥-aeVo 2 
integer ; 
string(2 
string( 


integer ; 
poolean; 
integer ; 
boolean); 


begin | 
Peles nr 2= ROUND(billet.billet nr); 
Job_descr := billet.job_descrp; 
work cntr := billet.workcenter ; 
minpaygr := billet.min_payegr; 
maxpaygr := billet.max_payer; 
rating» := billet.rating; 
Subrepers := belle t.curr pers; 
pPEos pers := bilbet.pros pers; 
job _Ingth := ROUND(billet.job length); 
mec reqd ?:2 bidet .nec reqd; 
nec code := ROUND(billet.nec); 


end; 
endoffile := EOF(billet); 
close(billet); 


end; 


67 


program GET PERS( RECEIVE 


recrd_nr imveszer ; 


rating in: serine”: 
payer s@strimge(2); 
RETURN ssn fnd : woolean; 
pros ssn : Serine 11); 
rating : string(3); 
paygrade : string(3); 
date rpt : string(8); 
prd : st rams ( & ); 
eaos : strane & ); 
curr job : imte@er ; 
start dt : StPrime(s); 
prev_job : Im@eger ; 
tot_days : integer; 
cdi : boolean; 
cdi_we : Secine@)-: 
qar : boolean ; 
pe boolean; 
Ord Cert 2 beelean, 
striker : boolean; 
str rate <: Stumm); 
tad_time : integer; 
new_recn : integer); 
var 
persfile record 

ssn So Site dere 1 es 

rating Ss treeea 

paygrade : (Stra nee: 

date reptd : string(8); 

prd oe Sie ieee) 

eaos : string(8); 

Suir 2 Ob ; real; 

start date : string(8); 

Dae “wa Ow >: real; 

total days : real; 

ecu bee Lean, 

cdi_we eS momoes) 

qar : boolean; 

plane capt : boolean; 

ordncern S SeG bean, 

striker : boolean; 

str rating + strmaing(35); 

tot _tad . reais, 

end; 
begin 


open( persfile, 


’personel’ ); 


goto( recrd_nr, persfile); 


if rating in = 


then 


"ANY? 
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begin 
while NOT EOF(persfile) AND 
(persfile.paygrade <> paygr) do 


begin 
NEXT(persfile); 
end; 
end 
else 
begin 


while NOT EOF(persfile) AND 

((persfile.paygrade <> paygr) OR 

(persfile  natiinoe<-eratinemin)) do 
begin 

NEXT(persfile); 

end; 

end; 


if EOF(persfile) 


then 


begin 
ssn frmd := false; 
pros_ssn : : er 
rPauine = ras 
paygrade : : me 
date rpt 
prd := ’ <> 
eaos := ’ “s 
CULT job 
start dt 
prev_jobd 
tot _days 
edi := GLalse; 
cdi we := ’ aS 
qar := false; 
Pe>= false; 
SEG cerun: = Lalse; 
See ie hs 2 = alse. 
str rate ; . 
tad time 
new_recn 
end 


~“ 


Q; 
SIZE(persfile) + 1; 


else 
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begin 


ssn. fnds: = true; 

PPOs ssn :="persttle ccm, 

rating := persfile.rating; 
paygrade := persfile.paygrade; 
date rpt := persfile.date reptd; 
prd := persfile.prd; 

eaos := persfile.eaos; 


Curr dob ROUND(persfile.curr_ job); 
start _dt := persfile.start date; 
prev_job := ROUND(persfile.prev_job); 
tot_days := ROUND(persfile.total_days); 
cdi := persfile.cdi; 

cdi_we := persfile.cdi_we; 

qar := persfile.qar; 

pe := persfile.qar; 

ord_cert := persfile.ord cert; 

striker := persfile.striker; 


Str_rate := persfile.str_rating; 
tad_time := ROUND(persfile.tot_tad); 
new _recn := RECNO(persfile) 

end; 


close(persfile); 
end; 
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program GET _PRSN(RECEIVE recrd_nr 


RETURN ssn_fnd 
ssn 
rating 
paygrade 
date_rpt 
prd 
eaos 
curr_job 
start_dt 
prev_job 
tot _days 
cdi 
cdi_wc 
qar 
pc 
ord _cert 
striker 
str_rate 
tad_time 

var 
persfile record 

ssn - Strime( 11); 
Mat ing : string(3); 
paygrade Sen meee): 
date _reptd : string(8); 
prd 1 Stenimnges 
eaos : Sitring (Ses 
Curr. job ;: real; 
Stent date <: strings) ; 
Prey j oD yea; 
total days : real; 

cdi >: boolean; 
cdi _we | Shr 1 ries) ; 
qar : boolean; 
plane_capt : boolean; 
ord _ cert : boolean; 
striker ; Boolean; 
Secabing < strane 5); 
tot_tad bea: 

ena. 
pbezin 


open( persfile, 
goto( recrd nr, 


’personel’ ); 
persfile); 


if EOF(persfile) 


then 
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integer ; 
boolean; 
string(11 
Ser img ( 3 ) 
sir iavz (3 ) 
string(8) 
string(8); 
Str ame (S ): 
integer ; 
string(8); 
integer ; 
ene ie 
boolean; 
string(3); 
boolean; 
boolean; 
boolean; 
boolean; 
string(3); 
integer ); 


)e 
? 
e 
? 
e 
9 
9 


ena: 


begin 


Sot ond false; 
ssn := ’ 73 
rating := °’ =; 
paygrade := ’ = 
daveerpt = ’ ds 
prd := ° a 
eaos := ’ a 
curr _job := @; 
Start_dt := ’ -; 
prev_job ;= @; 
tot_days := @; 
cdi := false; 
Gd vc = * mie 
qar := false; 
pe := false; 
erd seert :;= false; 
Striker := false; 
str orate ;:= ’ as 
tad time := @; 
end 
else 
begin 
ssn_fnd tees 
ssn := persfile.ssn; 
rating := persfile.rating; 
paygrade := persfile.paygrade; 
date rpt := perstiate dateeicera, 
prd := persfile.prd; 
eaos := persfile.eaos; 
curr job := ROUND(persfile- curr jen); 
start dt := persfile start date; 
prev_job := ROUND(persfile.prev_job); 
tot_days := ROUND(persfile.total_ days); 
cdi := persfile.cdi; 
cdi_wce := persfile.cdi_wc; 
qar := persfile.qar; 
pe := persfile.qar; 
ord cert := persi tle ronrcmccer., 
striker persfile.striker ; 
str rate ;:= persiile st suacine., 
tad_time := ROUND(persfile.tot_tad); 
end; 


close(persfile); 


he 


program GET _PSSN( 


var 

persfile 
ssn 
rating 
paygrade 
Gawsc er clp td 
prd 
eaos 
cunpr JOD 
Start date 
pie aeao iD 
total days 
cdi 
Cdl ¥yvc 
qar 
plane capt 
Omemeeh y 
Silo ae I 
str rating 
tot_tad 

ems; 


be 


begin 
open( persfi 
goto( 1, per 
While NOT EO 


RECEIVE curr_ssn 

RETURN ssn_fnd 
rating 
paygrade 
date_rpt 
prd 
eaos 
Curr job 
Sstart_dt 
prev_job 
tot _days 
cdi 
cdi_wcec 
qar 
pe 
ord_Cert 
Signi ker 
str rate 
tad_time 
new_recn 


aoe 


11 

: Oy, 

: String 2) 
Sirinecsus 
string(8); 
String Ce); 
real; 
string(8); 
real; 
real; 

>: boolean; 

os Gi inhi eee 

: boolean; 

: boolean; 

: boolean; 
boolean; 
string(> ): 
real; 


de 
’ 
’ 
9 
’ 


le, ’personel’ ); 
sfile); 
F(persfile) AND 


Stir ime( | 1); 
boolean; 
string(3); 
string(3); 
Sier ima ( S ) > 
string(8); 
string(8); 
integer; 
string(8); 
integer ; 
THtCeeer ; 
boolean; 
string(3); 
boolean; 
boolean; 
boolean; 
boolean; 
string(3); 
integer ; 
integer ); 


(curr ssn <> persfile.ssn) do 


begin 
NEXT(p 
end; 


ersfile); 


2 


if EOF(persfile) 
then 
begin 

ssn_fnd := false; 
rating : 
paygrade := 
date rpt := ’ ; 
prd:= ° =; 


we 


we 


e 


Striker := 

str_rate ;: 

tad_ time : 

VE NCEE t 
enc 


we 


else 


begin 
ssn_fnd := true; 
rating := persfile.rating; 
paygrade := persfile.paygrade; 
date rpt := pérsftite date meura. 
prd := persfile-pra: 
eaos := persfile.eaos; 
Curr Ujob ROUND(persfile.curr_job); 


start_dt := persfile.start_ date; 
prev_job := ROUND(persfile.prev_job); 
tot days := ROUND(persfile.total days); 
cdi := persfile.cdi; 


cdi wc *= persiele ccm c. 
qar := persfile.qar; 


pe := persfile.qar; 
ord cert :;= péeérsemlesowumecr |, 
striker := persfile.striker ; 


str_rate 
tad_time 
Hewel cen 
Clan 
close(persfile); 


Dershitesstrearau si. 
ROUND(persfile.tot_ tad); 
RECNO(persfile); 


end; 
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program GET SSN(RECEIVE recrd_nr : integer; 
RETURN ssn — otring¢ 11): 
endoffile: boolean); 


var 
persfile : record 
ssn : istring( 11); 
rating 2 Siti na 2): 
paygrade >; string(2); 
date reptd : string(8); 
prd stra ngS:) s 
eaos >: string(8); 
curr_job >: real; 
Start_date : string(8); 
prev_job : real; 
total _ days : real; 
Cidal ;: boolean; 
cdi_we esi eras) 
qar : boolean; 
plane_capt : boolean; 
ord_cert : boolean; 
striker ST O@o lean: 
Strenatinee: string( 5); 
tot _tad ; real; 
end; 
begin 
open( persfile, ’personel’ ); 
eomouerecrd mr, persfile)); 
if EOF(persfile) 
then 
begin 
Some t= 1 fF 
end 
Sc 
begin 
ssn := persfile.ssn; 
end; 
endoffile := EOF(persfile); 
close(persfile); 
era > 


1D 


program INIT _ NEW; 


var 
assign : record 
billet nee awe ads, 
curr _ssn : string 
pros_ssn : 
end; 


re e€nlist : record 
Ssh : strane): 
intent : boolean; 
end; 


begin 
open(assign, ’new_jobs’ ); 
goto(1, assign); 
while NOT EOF(assign) do 
begin 
if assign.deleted = false 
then 
begin 
assign.déeLeéwecaw— ae uc. 
replace(assign); 
end; 
NEXT( assign); 
ena. 
close(assign.); 


open(re enlist, ’reenlist’); 

goto(1, re_enlist); 

while NOT EOF(re_ enlist) do 
begin 


if re_enlist.deleted = false 
then 
begin 
re enlist.deleted := true; 
replace(re_ enlist); 
end; 
NEXT(re enlist); 


end; 


close(re_ enlist); 
ends; 
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program NEXT PG( RECEIVE paygr : string(2); 
RETURN paygd : string(2)); 


begin 
if payer = ’E9’ 
then 
paygd := ’58’; 


if paygr = ’E8’ 
then 
paygd := ’E7’ 


wo 


if paygr = ’E7’ 
then 
paygd := ’E6’; 


if payer = ’E6’ 
then 
paygd := ’°’E5’ 


we 


if payer = °’E5° 
then 
paygd := ’E4’; 


if paygr = 'E4’ 
then 
payed := ’ES’; 


it payer = ’ES’ 
then 
paygd := ’H2’; 


if payer = ’E2’ 
then 
paygd := ’E1’; 
if paygr = ’'E1’ 
Wigan 
paygd := ’H@’; 


end; 


et 


program PRINT OUT; 


var 

newjobs : record 
billetinn : eee: 
CUurpressn = Jsnrame Gil); 
pros_ssn : string(11); 

end; 

personnel : record 
last_name : string(15); 
first name : string(15); 
middle nam : string(15); 
ssn : string(11); 
rate : string(5); 

end; 

jobsfile : record 
billet nr : real; 
job _descrp : string(2@); 
workcenter : string(3); 
min paygr : string(2); 
max payer : string(2); 
rating 2 String( >); 
curr pers : string(11); 
pros pers : string(11); 
JCbutengin . real, 
nec reqd WOO BCom 
nec 7 fear, 

end; 

disana >) Siramecece. 

begin 


open(newjobs, ’new_ jobs’ ); 
open(personnel, ’persinfo’ ); 
open(jobsfile, ’jobs’); 
goto(1, newjobs); 
while NOT EOF(newjobs) do 
begin 
if (newjobs.deleted = false) AND 
(newjobs.billet_nr <> 9999.0) then 
begin 
gzoto(1, jobsfile); 
while NOT EOF(jobsfile) AND 
(newjobs.billet_nr <> 
jobsfile.billet_ nr) do 
begin 
NEXT(jobsfile); 
end; 
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goto(1, personnel); 


while NOT EOF(personnel ) AND 
(newjobs.curr_ssn <> 
personnel.ssn) AND 
(newjobs.curr_ssn <> 
*none found’) do 
begin 
NEXT( personnel ); 
end; 


if (newjobs.curr_ssn = ’none found’ ) 

then 

WRITELN(jobsfile.job descrp,’ ae 
jobsfile.workcenter, 
; no one found’ ) 

else 

WRITELN(jobsfile.job_descrp,’ ai, 
jobsfile.workcenter, 
: »>,personnel.rate,’ a 
personnel.last_name); 


if (newjobs.pros_ssn > ’90®0-®9-@@0®@’ ) OR 
(newjobs.pros_ssn = ’none found’ ) 
then 
begin 
goto(1, personnel ); 
while NOT EOF(personnel) AND 
(newjobs.pros_ssn <> 
personnel.ssn) AND 
(newjobs.pros_ssn <> 
>*none found’) do 
begin 
NEXT( personnel ); 
end; 


if (newjobs.pros_ssn = 
*none found’) then 


WRITELN(’ replacement 
needed, but no one found’ ) 
else 
WRITELN(’ replacement 
is >,personnel.rate, 
> * ,personnel.last_name); 
end; 


WRITELN; 
end; 


ao 


if (newjobs.deleted = false) AND 
(newjobs.billet_nr = 9999.@) then 
begin 


goto(1, personnel ); 
while NOT EOF( personnel) AND 
(newjobs.curr_ ssn <> personnel.ssn) 


do 
begin 
NEXT( personnel ); 
end; 
WRITELN(’ extra person, 
’,personnel.rate, 
personnel.last_name,’assign to ’, 
newjobs.pros_ssn); 
WRITELN ; 
ends; 
NEXT(newjobs); 


end; 


close(newjobs); 

close(personnel ); 
close(jobsfile); 
end; 
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program REENLIST( RECEIVE ssn $ Sit ieee ( 11); 
RETURN intention : boolean); 


var 
enemies ta: record 
ssn eat i et): > 
intent : boolean; 
end; 
personnel : record 
last_name : string(15); 
first _name : string(15); 
middle nam : string(15); 
ssn : Stren | i); 
rate Strid me( 5) ; 
end; 
Meee nt : Char ; 
begin 
open(re_enlist, 'reenlist’); 


goto(1, re _ enlist); 
while NOT EOF(re enlist) AND 
((ssn <> re_enlist.ssn) OR 
(re _enlist.deleted = true)) do 


begin 
NEXT(re_ enlist); 
end; 
if (ssn = re _enlist.ssn) 
then 
begin 
iamemGchon <= re _ enlist -intent; 
end 7 
else 
begin 
open(personnel, ’persinfo’ ); 


goto(1, personnel ); 
while NOT EOF( personnel) AND 
(ssn <> personnel.ssn) do 
begin 
NEXT( personnel ); 
end; 

CLEAR; 

WRITELN; 

WRITELN; 

WRITELN; 

WRITELN(’Does °’, personnel.rate,’ ”’, 
personnel.first_ name, 
personnel.last_name, 
> intend to reenlist? (Y/N)’); 
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Yr antent >=— 2; 


repeat 
begin 
READLN(r_intent); 
end; 
until (r_intent = “Yoo eGR @ se intenme ws.) 
OR (r_intent = ’N’) 
OR (r_intent = ’'n’); 
if (r_intent = ’Y’) ORMGrpeintent = ee 
then 
begin 
intention := true; 
end 
else 
begin 
intention := false; 
end; 


re enlist.intent := intention. 
re _enlist.ssn := ssn; 
append(re_enlist); 
close(re_enlist); 

ema, 


close(personnel );3 
end; 
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program WORK_CTR(RECEIVE billet nr : integer; 
RETURN work cntr : string(3); 
job_lngth : integer); 


var 
jobsfile : record 
Deaiitcwemar = real ; 
job_descrp : string(20); 
workcenter : string(3); 
min paygr : string(2); 
max paygr : string(2); 
rating : string(3); 
eurr pers : string(11); 
pros pers : string(11);3 
7OOD lemeth ;: real; 
Mec ered ; Boolean; 
nec ; real; 
end; 
begin 


open(jobsfile, ’jobs’); 
goto(1, jobsfile); 
while NOT EOF(jobsfile) AND 
((jobsfile.deleted = true) OR 
(jobsfile.billet_nr <> FLOAT(billet_nr))) do 
begin 
NEXT(jobsfile); 
end; 


if EOF(jobsfile) then 


pe gata 
work _cntr := ’ a 
poo lingth := 0; 
end 
else 
begin 
work cntr := jobsfile.workcenter ; 
job _ilngth := ROUND(jobsfile.job_length); 
end; 


close(jobsfile); 
end; 
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program WRITE IT(RECEIVE billet_nr : integer 


var 


assign : record 


balile paar 

curr _ssn 

pros_ssn 
end; 


begin 


assign ssn : string( 
future ssn :° String( 


real; 


string( 
string( 


ok awh 
awh awh 
a 
we we 


open(assign, ’new_jobs’); 


assign.billet_nr 
assign.curr_ssn 
assign.pros_ssn 


append(assign); 


close(assign); 
end; 


a 
f 


FLOAT(billet_nr); 
ssign_ssn; 
uture_ssn; 
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1 
1 


ys 
ie 


APPENDIX D 


TURBO PASCAL PROGRAMS 


program get_date ; 
ype 
registers = record 


mn, x, CX, Oam,bp,si,di,ds,es,fear wminteger ; 
end; 


VAR 
REC PACK : registers; {record for MsDos call} 
MONTH, DAY : STRING[2]; 
YEAR : STRING[4]; 


err, iMONTH, iDAY, iYEAR, DX, CX : INTEGER; 
date, date3® : string[8]; 


{$I ASCIIPRM.PAS } {This is INSIGHT 2+ Pascal paramter 
passing source } 


BEGIN 
WITH RECPACK DO BEGIN 
Po c=— ben oHL 8; 
END: 
MSDOS (RECPACK); { ‘calt fumction, } 


WITH RECPACK DO BEGIN 
STR (CX, YEAR); 
STR (DX MOD 256, DAY); 
STR (DX SHR 8, MONTH); 
END; 


val (month, imonth, err); 
val (day, iday, err); 
val (year, iyear, err); 


if amontcn <= 9 


then 
MONTH := ’°@’+MONTH; 
iwc <= 9 
then 
DAY := ’°@’+DAY; 
DATE := YEBAR+MONTH+DAY ; 


S)5 


iday := iday + 390; 


if ((imonth=1) or (imonth=3) or (imonth=5) or 
(imonth=7) or (imonth=8) or (imonth=1@)) and 
(iday>31) then 


begin 
imonth := imonth + 1; 
iday := iday - 31; 
end; 


if (imonth=2) and (iday>28) then 


begin 
imonth := imonth + 1; 
iday := iday - 28; 
end; 


if (Cimonth=4) or (imonth=6) or (imonth=9) or 
(imonth=11)) and (iday>3@) then 


begin 
imonth := imonth + 1; 
iday := iday - 3@; 
end; 


if (imonth=12) and (iday>31) then 


begin 
1year := iyear + 1; 
imonth := 1;3 
iday := iday - 31; 
end; 


str(iyear:4,year):; 


if imonth <= 9 


then 
begin 
str(imonth:1,month); 
MONTH := ’°’@’+MONTH; 
end 
else 
begin 
stir( imonth 92-mon mae 
end; 


if iday <= 9 


then 
begin 
str(iday:1,day): 
DAY <2= “O72 DAY 
end 
else 
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begin 
str(iday:2,day); 
end; 


DATE3@ := YEAR+MONTH+DAY; 
INIT PARAM_ADDR; 

RESET PARAM MEMORY (2); 
WRITE _STRING( date); 
WRITE STRING(date30); 


END. 


a 


program job_time; 


{$v-, 


VAR 


{$I 


begi 


I-} 


start date, 

today date : string[8s]; 
job_length : real; 
exceeded, 

exceed3@ : boolean; 


istrtyr, 

istrtmo, 

istrtda, 

itdayyr, 

itdaymo, 

itdayda, 

err, 

jobtime : integer; 


Start_yr, 
today_yr : string[4]; 


Start_mo, 
today_mo, 
start_da, 
today da oSSitr imo |: 


ASCIIPRM.PAS} {This is INSIGHT 2+ Pascal paramter 
passing source } 


n 
INIT PARAM_ADDR; 


READ STRING(start_date); 
READ STRING(today_ date); 
READ REAL(job_length); 


Start_yr 
Start_mo 
start_da 


COPY (Start date, 1.45); 
COR Geter tam date, 5.2un 
COPY(start/ date. 7.20. 


today_yr := COPY(today_date,1,4); 
today mo += COPY( todayedate. ss cnr: 
today_da := COPY(today date,7,2); 


Val (Start yruistrigemerre 
val(Start mo, istrutmorerr): 
val(start_da,istrtida,crr ); 


Val( tedayuyrs1 tdayg- crn: 
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val(today_mo,itdaymo,err); 
val(today_da,itdayda,err); 


if itdayda < istrtda then 
begin 

itdayda := itdayda + 390; 

itdaymo := itdaymo - 1; 

end; 


if itdaymo < istrtmo then 


begin 
itdaymo := itdaymo + 12; 
itdayyr := itdayyr - 1; 
end; 


Hobuime w= (itdamyr —- astrtyr) * 565) + 
((itdaymo - istrtmo) * 3@) + 
(itdayda - istrtda); 


if jobtime >= job_length 


then 

exceeded := true 
else 

exceeded := false; 


if (jobtime + 30) >= job_length 
then 
exceed3@ := true 
else 
exceed3@ := false; 


RESET PARAM MEMORY (1); 


WRITE BOOLEAN( exceeded) ; 
WRITE BOOLEAN(exceed3®@) ; 


END. 


eo 


APPENDIX E& 


KNOWLEDGE BASE PROGRAM 


TITLE AMO DISPLAY 


NUMERIC 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


_AMO__KNOWLEDGE __ BASE 


ASSISTANT 
MAINTENANCE 
OF F ICER 
A Knowledge base designed to assist the 
squadron Assistant Maintenance Officer 
in assigning maintenance personnel to 


appropriate billets. 


Author: Thomas P. Alston, LT, USN 
Date: 28 February 1987 





Press Function Key 3 STRT to start AMO. 


billet counter 

billet number 

job length 

personnel counter 

Current 2400 

previous job 

total days in previous job 
total tad time 

nec code 
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STRING 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


SIMPLEFACT 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


FORGET ALL 


todays date 

date plus one month 
billet description 
work center 

minimum paygrade 
maximum paygrade 
paygrade 

desired paygrade 
billet rating 
persons rating 
social security number 
current ssn 
prospective ssn 
date reported 

pia 

eaos 

start date 

cdi for work center 
striker rating 


nec required 

nec found 

paar lem cor 

personnel eof 

ssn was found 

cdi 

qar 

plane captain 

ordnance certified 

Striker 

person assigned 

has execeded jobmelength 
will exceed job length soon 
Persone meets all requrremnents 
reenlistment intention 


SUPPRESS ALL 
CONFIDENCE OFF 
UNKNOWN FAIL 


! The goal of the knowledge base is AMO _IS DONE. 


fis 


AMO_IS DONE 


oA 


RULE 1 Check if goal (AMO_IS_DONE) is reached 
IF system initialized 

AND all _ billets are filled 

AND FORGET initialize personnel counter 

AND initialize personnel counter 

AND all_personnel are assigned 

AND CALL printout 

THEN AMO_IS_DONE 


RULE 2 Initialize new_jobs.dbf jand@reentisc.dbi -anma 
' get todays date and date 30 days from today 
CALL init_new 

ACTIVATE get_date.com 

RETURN todays date 

RETURN date plus one month 

IF billet counter := 1 

AND personnel counter := 1 

THEN system initialized 


Next four rules are used to check if all billets have 
been filled. The knowledge base starts with the 
billet counter initialized to 1, and cycles through 
the jobs.dbf file until it reaches the end of the 


file. Originally, the rules used recursion directly 
on "all billets are filled" to £11 i@apereximately ia 
billets. However, because Insight 2+ detects 


possible infinite recursion, a method of reducing the 
number of recursive calls had to be implemented. 
Therefore, the rules were modified to allow approx- 
imately 20 billets to be assigned for each level of 
recursion. 


-_- o——- - .—- o——- o—- o- o> ——-_ o——- -_ o-——- 


RULE 3 Recursive call for allebi Pies wareetitied 
if fill some bil lew. 

AND FORGET fill some billets 
AND fill some billets 

AND FORGET fill some billets 
AND fill some billets 

AND FORGET fill some billets 
AND fill some billets 

AND FORGET fill some billets 
AND all bDilYets are "filed 
THEN all Bbaiitets ane wiail Fed 


RULE 4 stopping condition for all DiWetera: esr a 
Io los II e5n cue 


THEN Vai bale tS ae eee leer 


ie 


RULE 5 Conditions.for fillings one billet 
IF have a billet 

AND have a person 

AND have a prospective person 

AND CALL write_it 

SEND billet number 

SEND current ssn 

SEND prospective ssn 

AND FORGET have a billet 

AND FORGET have a person 

AND FORGET have a prospective person 
AND billet counter := billet counter + 1 
THEN one billet was filled 


RULE 6 Fill some (5) billets, one at time 
IF one billet was filled 

AND FORGET one billet was filled 
AND one billet was filled 

AND FORGET one billet was filled 
AND one billet was filled 

AND FORGET one billet was filled 
AND one billet was filled 

AND FORGET one billet was filled 
AND one billet was filled 

AND FORGET one billet was filled 
THEN fill some billets 


RULE 7 Initialize the personnel counter 
IF personnel counter := 1 
THEN initialize personnel counter 


Next three rules are used to check if all personnel 
have been assigned. The Knowledge base starts with 
the personnel counter initialized to 1, and cycles 
through the personel.dbf file until it reaches the 
end of the file. The rules use recursion to check 
if all persons have been assigned. Again, the 
recursion is modified so that the levels of 
recursion are reduced. 


-_ => —_— > > o— o-— = 


RULE 8 Check if a person has been assigned 
IF have ssn 

AND person already assigned 

AND FORGET have ssn 

AND FORGET person already assigned 

AND personnel counter := personnel counter + 1 
THEN one person is assigned 
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RULE 9 Recursive call for all_personnel are assigned 
IF one person is assigned 

AND FORGET one person is assigned 
AND one person is assigned 

AND FORGET one person is assigned 
AND one person is assigned 

AND FORGET one person is assigned 
AND one person is assigned 

AND FORGET one person is assigned 
AND all_personnel are assigned 
THEN all personnel are assigned 


RULE 10 Stop condition for all personnel are assigned 
IF personnel _ eof 


THEN all personnel are assigned 


RULE 11 Get a billet 
CALL get bill 

SEND billet counter 
RETURN billet number 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


billet description 
work center 
minimum paygrade 
maximum paygrade 
billet rating 
current ssn 
prospective ssn 
job length 

nec required 

nec code 


RETURN billet_eof 
I® NOT billet_eof 
THEN have a billet 


Rules that conclude 
below. 


"have a person" are listed 

' These rules are used to match a billet 

' with a person in the personel.dbf file. The 

' knowledge base will try to assign the person who 
' is currently filid@ing thee bil Wet Seo (thaw biller 

' unless the person is about to leave the squadron 
' due to PRD/EAOS considerations, or the person has 
' been assigned to another billet, or the person is 
' not currently assigned to a billet. 
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RULE 
IF current ssn > 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


we Cheek if current person is ok for the billet 
"90O0-O0-OBOO" 

social security number 
have the current person 
prd > date plus one month 

eaos > date plus one month 

have job length information 

NOT has exceeded job length 
prospective ssn > "@00-00-0000" 
person hasnt been assigned 

FORGET have the current person 
FORGET person hasnt been assigned 
FORGET have job length information 


current ssn 


THEN have a person 


AND 


-RULE 13 
IF current ssn > 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


need a prospective person 


Check if current person is ok for the billet 
"9OO-9O0-BOGO"" 

social security number 
have the current person 
prd > date plus one month 

eaos > date plus one month 

have job length information 

NOT has exceeded job length 
prospective ssn <= "900-900-0000" 
person hasnt been assigned 

FORGET have the current person 
FORGET person hasnt been assigned 
FORGET have job length information 
FORGET need a prospective person 


current ssn 


THEN have a person 


RULE 
IF current ssn > 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


14 Check if current person is ok for the billet 
"O9OO-O9O-ODOO" 
social security number := 
mewe=mae current person 
prd > date plus one montn 
eaos <= date plus one month 
intends to reenlist 

have job length information 

NOT has exceeded job™lengthn 
prospective ssn > "000-000-0000" 
person hasnt been assigned 

PORGrE. have the current person 
PORGH@T intends to reenlist 

FORGET person hasnt been assigned 
FORGET have job length information 


CULT Chiu, ssl 


THEN have a person 


AND 


need a prospective person 
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RULE 15 Check if current person is ok for the billet 
IF current ssn > "000-009-0000" 

AND social security number := current ssn 
AND have the current person 

AND prd > date plus one month 

AND eaos <= date plus one month 

AND intends to reenlist 

AND have job length information 

AND NOT has exceeded job length 

AND prospective ssn <= "000-080-0000" 

AND person hasnt been assigned 

AND FORGET need a prospective person 

AND FORGET have the current person 

AND FORGET intends to reenlist 

AND FORGET person hasnt been assigned 

AND FORGET have job length information 
THEN have a person 


RULE 16 Check if current person is ok for the billet 
IF current ssn > "000-009-0000" 

AND social security number := current ssn 
AND have the current person 

AND prd > todays date 

AND eaos > todays date 

AND prd <= date plus one month 

AND person hasnt been assigned 

AND FORGET have the current person 

AND FORGET person hasnt been assigned 
THEN have a person 

AND need a prospective person 


RULE 17 Check if prospective person is ok for billet 
IF current ssn > "@00-@0-@000" 

AND prospective ssn > "@@0-090-@000" 

AND social security number := prospective ssn 
AND FORGET have the current person 

AND have the current person 

AND prd > date plus one month 

AND eaos > date plus one month 

AND person hasnt been assigned 

AND FORGET need a prospective person 

AND FORGET have the current person 

AND FORGET person hasnt been assigned 

THEN have a person 
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RULE 18 Check if prospective person is ok for billet 


IF current ssn > 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


prospective ssn > 


social 
FORGET 


"900-800-0000" 

"O@00-00-O000" 

security number := prospective ssn 
have the current person 


have the current person 
prd > date plus one month 


eaos <= 


person 
FORGET 


date plus one month 
hasnt been assigned 
person hasnt been assigned 


intends to reenlist 


FORGET 
FORGET 
FORGET 


intends to reenlist 
have the current person 
need a prospective person 


THEN have a person 


RULE 19 


Jo 

AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


Find a person to fill billet 
initialize personnel counter 


initialize desired paygrade 
desired paygrade < minimum paygrade 


FORGET 
FORGET 
FORGET 
find a 
FORGET 
FORGET 
FORGET 
FORGET 
FORGET 


initialize personnel counter 
initialize desired paygrade 
find a person 

person 

person hasnt been assigned 
need a prospective person 
initialize personnel counter 
initialize desired paygrade 
have a possible person 


THEN have a person 


RULE 20 


Find a person to fill billet 


ih initialize personnel counter 
initialize desired paygrade 
have a possible person 

nec required 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


person 


start date <= 


has nec 
todays date 


prd > date plus one month 


eaos > 
person 


Currens ssn := 


FORGET 
FORGET 
FORGET 
FORGET 
FORGET 
FORGET 


date plus one month 

hasnt been assigned 

social security number 
person hasnt been assigned 
initialize personnel counter 
initialize desired paygrade 
have a possible person 

person has nec 

need a prospective person 


THEN have a person 


ae 


RULE 21 


Find a person to fill billet 


IF initialize personnel counter 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


initialize desired paygrade 

have a possible person 

nec required 

person has nec 

start date <= todays date 

prd > date plus one month 

eaos <= date plus one month 

person hasnt been assigned 

FORGET person hasnt been assigned 
intends to reenlist 

current ssn social security number 
FORGET initialize personnel counter 
FORGET initialize desired paygrade 
FORGET have a possible person 
FORGET need a prospective person 
FORGET person has nec 

FORGET intends to reenlist 


THEN have a person 


RULE 22 


Find a person to fill billet 


IF initialize personnel counter 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


initialize desired paygrade 

have a possible person 

production work center 

FORGET production work center 

cdi 

start date <= todays date 

prd > date plus one month 

eaos >» date plus one month 

person hasnt been assigned 

current ssn := social security number 
FORGET person hasnt been assigned 
FORGET initialize personnel counter 
FORGET initialize desired paygrade 
FORGET have a possible person 
FORGET need a prospective person 


THEN have a person 
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RULE 23 Find a person to fill billet 
IF initialize personnel counter 
initialize desired paygrade 

have a possible person 
production work center 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


FORGET 
cdi 


production work center = 


start date <= todays date ay 
prd > date plus one month iS 
eaos <= date plus one month | 
intends to reenlist 


person 


hasnt been assigned 


current ssn := social security number 


FORGET 
FORGET 
FORGET 
FORGET 
FORGET 
FORGET 


person hasnt been assigned 
initialize personnel counter 
initialize desired paygrade 
have a possible person 

need a prospective person 
intends to reenlist 


THEN have a person 


RULE 24 Find a person to fill billet 
IF initialize personnel counter 
initialize desired paygrade 

have a possible person 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


work center = "@40" 
eat 
Start date <= todays date 


prd >» date plus one month 


€aos > 


date plus one month 


person hasnt been assigned 
current ssn := social security number 


FORGET 
FORGET 
FORGET 
FORGET 
FORGET 


person hasnt been assigned 
initialize personnel counter 
initialize desired paygrade 
have a possible person 

need a prospective person 


THEN have a person 
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RULE 25 Find a person to fill billet 
IF tnitialize personnel counter 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


AND 


initialize desired paygrade 

have a possible person 

work center = "@4@0" 

Gadi 

start date <= todays date 

prd > date plus one month 

eaos <= date plus one month 

impends tOsrecns 1st 

person hasnt been assigned 

current ssn social security number 
FORGET person hasnt been assigned 
FORGET initialize personnel counter 
FORGET initialize desired paygrade 
FORGET have a possible person 
FORGET need a prospective person 
FORGET intends to reenlist 


THEN have a person 


RULE 26 


Find a person to fill billet 


IF initialize personnel counter 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


initialize desired paygrade 

have a possible person 

work center = "2350" 

ordnance certified 

start date <= todays date 

prd > date plus one month 

eaos > date plus one month 

person hasnt been assigned 

current ssn := social security number 
FORGET person hasnt been assigned 
FORGET initialize personnel counter 
FORGET initialize desired paygrade 
FORGET have a possible person 
FORGET need a prospective person 


THEN have a person 
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Reb 2 Find a person to fill billet 
IF initialize personnel counter 

AND initialize desired paygrade 

AND have a possible person 

AND work center = "230" 

AND ordnance certified 

AND start date <= todays date 

AND prd > date plus one month 

AND eaos <= date plus one month 

AND person hasnt been assigned 

AND FORGET person hasnt been assigned 
AND intends to reenlist 

AND current ssn := social security number 
AND FORGET initialize personnel counter 
AND FORGET initialize desired paygrade 
AND FORGET have a possible person 

AND FORGET need a prospective person 
AND FORGET intends to reenlist 

THEN have a person 


RULE 28 Find a person to fill billet 
IP initialize personnel counter 

AND initialize desired paygrade 

AND have a possible person 

AND work center = "310" 

AND plane captain 

AND start date <= todays date 

AND prd > date plus one month 

AND eaos > date plus one month 

AND person hasnt been assigned 

AND current ssn := social security number 
AND FORGET person hasnt been assigned 
AND FORGET initialize personnel counter 
AND FORGET initialize desired paygrade 
AND FORGET have a possible person 

AND FORGET need a prospective person 
THEN have a person 


RULE 29 Continue looking for a person 

IF FORGET have a possible person 

AND personnel counter := personnel counter + 1 
AND current ssn := "@@00-00-@000" 

AND have a person 

THEN have a person 
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RUL 


E 3® Is work center a production work center 
work center = "110" 
work center = "120" 
work center = "12C3 
work center = "13A" 
work center = "13B" 
work center = "2190" 
work center = "220" 
work center = "230" 
work center = "269" 
work center = "280" 


THEN production work center 


ee ee 


RULE 31 


Next rules conclude 
search could not find a person who meets all 
requirements, 
a person who meets the minimum requirements. 


"find a person" is used when the 


so another search is conducted to find 


Find a person to fill billet 


IF initialize personnel counter 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


initialize desired paygrade 

have a possible person 

desired paygrade < minimum paygrade 
current ssn "none found" 

social security number "none found" 
FORGET initialize personnel counter 
FORGET initialize desired paygrade 
FORGET have a possible person 


THEN find a person 


AND 


RULE 32 


need a prospective person 


Find a person to fill billet 


IF initialize personnel counter 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


initialize desired paygrade 

have a possible person 

start date <= todays date 

prd > date plus one month 

eaos > date plus one month 

person hasnt been assigned 

FORGET person hasnt been assigned 
prospective ssn <= "@00-00-0000" 
current ssn := social security number 
FORGET initialize personnel counter 
FORGET initialize desired paygrade 
FORGET have a possible person 
FORGET need a prospective person 


THEN find a person 
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RULE 35 Find a person to fill billet 
IF initialize personnel counter 

AND initialize desired paygrade 

AND have a possible person 

AND NOT nec required 

AND start date <= todays date 

AND prd > date plus one month 

AND eaos > date plus one month 

AND person hasnt been assigned 

AND current ssn := social security number 
AND FORGET person hasnt been assigned 
AND FORGET initialize personnel counter 
AND FORGET initialize desired paygrade 
AND FORGET have a possible person 

AND FORGET need a prospective person 
THEN find a person 


RULE 34 Continue looking for a person 

IF FORGET have a possible person 

AND personnel counter := personnel counter + 1 
AND current ssn := "@00-00-0000" 

AND find a person 

THEN find a person 


' Rule that concludes "person has nec" 


RULE 35 Check if person has the required nec 
CALL checknec 

SEND social security number 

SEND nec code 

RETURN nec found 

IF nec found 

THEN person has nec 


' Rules that conclude "have a prospective person" 


RULE 36 Find a prospective person 
IF NOT need a prospective person 

AND prospective ssn := " c 
AND FORGET need a prospective person 
THEN have a prospective person 


Loe 


RULE 37 Find a prospective person 


IF prospective ssn > 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


"OOO-O0-O000"' 

social security number prospective ssn 
FORGET have the current person 

have the current person 

prd > date plus one month 

eaos > date plus one month 

person hasnt been assigned 

FORGET person hasnt been assigned 

current ssn <> social security number 
FORGET have the current person 


THEN have a prospective person 


RULE 38 Find a prospective person 
IF initialize personnel counter 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


initialize desired paygrade 

have a possible person 

desired paygrade < minimum paygrade 
prospective ssn "none found" 

social security number "none found" 
FORGET initialize personnel counter 
FORGET initialize desired paygrade 
FORGET have a possible person 


THEN have a prospective person 


RULE 39 


Find a prospective person 


IF initialize personnel counter 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


initialize desired paygrade 

have a possible person 

nec required 

person has nec 

prd >» date plus one month 

eaos > date plus one month 

current ssn <> social security number 
person hasnt been assigned 

FORGET person hasnt been assigned 
FORGET person has nec 


THEN have a prospective person 


RULE 4@ 


Find a prospective person 


IF initialize personnel counter 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


initialize desired paygrade 

have a possible person 

work center = "@4@0" 

billet rating = "ANY" 

prd >» date plus one month 

eaos > date plus one month 

current ssn <> social security number 
person hasnt been assigned 

FORGET person hasnt been assigned 


THEN have a prospective person 
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RULE 41 Find a prospective person 
IF initialize personnel counter 


AND 


initialize desired paygrade 

have a possible person 

work center = "@40" 

qar 

prd > date plus one month 

eaos > date plus one month 

current ssn <> social security number 
person hasnt been assigned 

FORGET person hasnt been assigned 


THEN have a prospective person 


RULE 42 Find a prospective person 
IF initialize personnel counter 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


initialize desired paygrade 

have a possible person 

work center = "@4Q" 

billet rating = "AD" 

have a possible person 

cdi 

cdi for work center = "110" 

prd > date plus one month 

eaos > date plus one month 
current ssn <> social security number 
person hasnt been assigned 

FORGET person hasnt been assigned 


THEN have a prospective person 


RULE 43 Find a prospective person 
IF initialize personnel counter 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


initialize desired paygrade 

have a possible person 

work center = "@4@Q" 

billet rating = "Ak" 

cdi 

cdi for work center = "220" 

prd > date plus one month 

eaos > date plus one month 
current ssn <> social security number 
person hasnt been assigned 

FORGET person hasnt been assigned 


THEN have a prospective person 
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RULE 44 Find a prospective person 
IF initialize personnel counter 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


initialize desired paygrade 

have a possible person 

work center = "@490" 

billet rating = "AME" 

cdi 

cdi for work center = "135B" 

prd > date plus one month 

eaos > date plus one month 
current ssn <> social security number 
person hasnt been assigned 

FORGET person hasnt been assigned 


THEN have a prospective person 


RULE 45 Find a prospective person 
IF initialize personnel counter 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


initialize desired paygrade 

have a possible person 

work center = "@40" 

billet rating = "AMH" 

edi 

cdi for work center = "120" 

prd > date plus one month 

eaos > date plus one month 
current ssn <> social security number 
person hasnt been assigned 

FORGET person hasnt been assigned 


THEN have a prospective person 


RULE 46 Find a prospective person 
IF initialize personnel counter 


AND 


initialize desired paygrade 

have a possible person 

work center = "@40" 

billet rating = "AQ" 

cdi 

cdi for work center = "280" 

prd > date plus one month 

eaos > date plus one month 
current ssn <> social security number 
person hasnt been assigned 

FORGET person hasnt been assigned 


THEN have a prospective person 
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RULE 47 Find a prospective person 
IF initialize personnel counter 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


initialize desired paygrade 

have a possible person 

work center = "@4Q" 

billet rating = "AO" 

cdi 

cdi for work center = "230" = 
prd >» date plus one month 

eaos >» date plus one month 

current ssn <> social security number 
person hasnt been assigned 

FORGET person hasnt been assigned 


THEN have a prospective person 


RULE 48 Find a prospective person 
IF initialize personnel counter 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


initialize desired paygrade 

work center = "310" 

have a possible person 

plane captain 

prd > date plus one month 

eaos > date plus one month 
current ssn <> social security number 
person hasnt been assigned 

FORGET person hasnt been assigned 
have job length information 

NOT has exceeded job length 


THEN have a prospective person 


RULE 49 


Find a prospective person 


IF initialize personnel counter 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


initialize desired paygrade 

work center = "2560" 

have a possible person 

ordnance certified 

prd >» date plus one month 

eaos >» date plus one month 

current ssn <> social security number 
person hasnt been assigned 

FORGET person hasnt been assigned 


THEN have a prospective person 
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RULE 5@ Find a prospective person 

IF initialize personnel counter 

AND initialize desired paygrade 

AND have a possible person 

AND cdi 

AND cdi for work center = work center 
AND prd > date plus one month 

AND eaos > date plus one month 

AND current ssn <> social security number 
AND person hasnt been assigned 

AND FORGET person hasnt been assigned 
THEN have a prospective person 


RULE 51 Find a prospective person 

IF FORGET have a possible person 

AND personnel counter := personnel counter + 1 
AND prospective ssn := "@00-00-0000" 

AND have a prospective person 

THEN have a prospective person 


! Next rules conclude "have a possible person" 
RULE 52 Check if no one has been found 


IF desired paygrade < minimum paygrade 
THEN have a possible person 
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RULE 53 Call GET PERS. PAS 
CALL get _pers 
SEND personnel counter 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
IF ssn 


billet rating 
desired paygrade 


ssn was found 
social security number 
persons rating 
paygrade 

date reported 

prd 

eaos 

current job 

Start date 

previous job 

total days in previous job 
eda 

cdi for work center 
qar 

plane captain 
ordnance certified 
striker 

striker rating 
total tad time 
personnel counter 
was found 


THEN have a possible person 


RULE 54 


if person Wasn't found, then use recursion to 


' find a person at the next lower paygrade 


IF NOT 


ssn was found 


AND CALL next _pg 
SEND desired paygrade 


RETURN 


desired paygrade 


AND personnel counter := 1 


AND have a possible person 
THEN have a possible person 


RULE 55 Initialize "desired paygrade" 
IF desired paygrade := maximum paygrade 
AND FORGET person meets all_requirements 
THEN initialize desired paygrade 


RULE 56 
IF 1 = 1 
THEN assert person meets all requirements 
AMS petson meets all requirements 


Assert person meets all requirements 


ruse So 7 
IF @ = 1 
Powe Ppemconmmeecs all requirements 
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RULE 58 
IF @ = 1 
THEN need a prospective person 


RULE 59 Check if person has been in job too long 
ACTIVATE job_time.com 

SEND start date 

SEND todays date 

SEND job length 

RETURN has exceeded job length 

RETURN will exceed job length soon 

THEN have job length information 


RULE 60 Get a person when you have a ssn 
CALL get_pssn 
SEND social security number 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
IF ssn 


ssn was found 
persons rating 
paygrade 

date reported 

prd 

eaos 

current job 

start date 
previous job 

total days in previous job 
cada 

cdi for work center 
qar 

plane captain 
ordnance certified 
striker 

striker rating 
total tad time 
personnel counter 
was found 


THEN have the current person 


RULE 61 


Call CHECK NJ.PAS 


CALL check_nj 
SEND social security number 


RETURN 
Erie rt 


person assigned 
person assigned 


THEN person hasnt been assigned 


RULE 62 Call REENLIST. PAS 

CALL reenlist 

SEND social security number 

RETURN reenlistment intention 

IF reenlistment intention 

THEN intends to reenlist ‘ 


The next three rules are used to satisfy 

"a epersconmel assigned”. The rules get a 
social security number from the personel.dbf 
file and then check to see if it is in the 
new jobs.dbf file. If not, then it assigns 
that person to a work center. 


=> >_> +m >_> cab 6 om 


RULE 63 Get ssn to check if person has been assigned 
CALL get_ssn 

SEND personnel counter 

RETURN social security number 

RETURN personnel_eof 

im NeT personnel eof 

THEN have ssn 


RULE 64 Check if person is already assigned 
CALL check_nj 

SEND social security number 

RETURN person assigned 

IF person assigned 

THEN person already assigned 

ELSE assign person 


RULE 65 Check if person has already checked out 
' of the squadron 

IF assign person 

AND get the persons data 

AND prd <= todays date 

AND person has checked out 

AND FORGET assign person 

AND FORGET get the persons data 

AND FORGET person has checked out 

THEN person already assigned 


RULE 66 Assign a person when all billets are filled 
IF assign person 

AND get the persons data 

AND work center found 

AND CALL write_it 

SEND billet number 

SEND social security number 
SEND work center 

AND FORGET assign person 

AND FORGET get the persons data 
AND FORGET work center found 
THEN person already assigned 


This 


assigned and there are 


rule is invoked after all billets have been 
"extra" persons in the 


: 
! 
' personel.dbf file who need to be assigned toa 
‘)work Center. 


RULE 67 Get the 


"extra" person’s data 


CALL get_prsn 
SEND personnel counter 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
IF ssn 


ssn was found 

social security number 
persons rating 
paygrade 

date reported 

Dra 

eaos 

current job 

Start date 

previous job 

total days in previous job 
edi 

cdi for work center 
qar 

plane captain 

ordnance certified 
striker 

striker rating 

total tad time 

was found 


THEN get the persons data 


The following rules’ 
if @leiacles os 
person will be assigned to his current work center 
if he meets the criteria in the next 3 rules; 


conclusion is "work center 


for assigning "extra" personnel. The 


and 


the other rules determine an appropriate work center 
based on rating and paygrade. 


RULE 68 Assign him to his current work center 
IF current job > @ 

AND prd > date plus one month 

AND eaos > date plus one month 

AND get a work center 

AND not_a tad billet 

AND have job length information 

AND NOT has exceeded job length 

AND billet number := 9999 

AND FORGET have job length information 
AND FORGET get a work center 

AND FORGET not_a tad billet 

THEN work center found 


RULE 69 Assign him to his current work center 
IF current job <> @ 

AND prd > date plus one month 

AND eaos <= date plus one month 

AND intends to reenlist 

AND get a work center 

AND not_a tad billet 

AND have job length information 

AND NOT has exceeded job length 

AND billet number := 9999 

AND FORGET intends to reenlist 

AND FORGET have job length information 
AND FORGET get a work center 

AND FORGET not_a tad billet 

THEN work center found 


RULE 7@ Assign him to his current work center 
BF current job > @ 

AND prd <= date plus one month 

AND get a work center 

AND not_a tad billet 

AND have job length information 

AND NOT has exceeded job length 

AND billet number := 9999 

AND FORGET have job length information 
AND FORGET get a work center 

AND FORGET not_a tad billet 

THEN work center found 


RULE 71 Person hasn’t arrived on board yet 
IF start date > date plus one month 

AND billet number := 9999 

AND work center := start date 

THEN work center found 


RULE 72 Assign to Material Control 


IF persons rating = "AK" 
AND billet number := 9999 
AND work center := "@50" 


THEN work center found 


RULE 73 Assign to Material Control 
IF paygrade <= "K3" 

AND striker 

AND striker rating EK 

AND billet number := 9999 

AND work center := "@50" 

THEN work center found 


RULE 74 Assign to Maintenance Control 


IF persons rating = "AZ" 
AND billet number := 9999 
AND work center := "@20Q0" 


THEN work center found 


RULE 75 Assign to Maintenance Control 
IF paygrade <= "E53" 

AND striker 

AND striker rating "AZ" 

AND billet number := 9999 

AND work center := "@20" 

THEN work center found 


RULE 76 Assign to Corrosion Control 
IF paygrade <= "E35" 

AND persons rating "AMS" 

AND billet number aoe 

AND work center := "12C" 

THEN work center found 


RULE 77 Assign to Corrosion Control 
IF paygrade <= "E35" 

AND striker 

AND striker rating "AMS" 

AND billet number := 9999 

AND work center := "12C" 

THEN work center found 


RULE 78 Assign to Line Division 
IF paygrade <= "E353" 

AND billet number := 9999 

AND work center := "319" 

THEN work center found 


RULE 79 Assign to Power Plants 
IF paygrade >= "E7" 

AND persons rating = "AD" 

AND billet number := 9999 

AND work center := "100" 

THEN work center found 


RULE 8@ Assign to Power Plants 
IF paygrade >= "E4" 

AND persons rating "AD" 

AND billet number : 9999 

AND work center := "119" 

THEN work center found 


RULE 81 Assign to Airframes 
IF persons rating = "AM" 

AND billet number := 9999 
AND work center := "10Q" 
THEN work center found 


RULE 82 Assign to Airframes 
IF paygrade >= "E4" 

AND persons rating = "AMS" 
AND billet number := 9999 
AND work center := "120" 
THEN work center found 


RULE 83 Assign to Airframes 
IF paygrade >= "kK4" 

AND persons rating ' AMH" 
AND billet number 9999 
AND work center := "12@" 
THEN work center found 


RULE 84 Assign to PR Branch 
IF paygrade >= "B4" 

AND persons rating ee 
AND billet number 9999 
AND work center := "135A" 
THEN work center found 


RULE 85 Assign to AME Branch 
IF paygrade >= "E4" 

AND persons rating "AME" 
AND billet number 9999 

AND work center := "13B" 

THEN work center found 


RULE 86 Assign to Avionics 
IF paygrade >= "E7" 

AND persons rating ‘Ast 
AND billet number 9999 
AND work center := "200" 
THEN work center found 


RULE 87 Assign to Avionics 
IF paygrade >= "E7" 

AND persons rating = "AE" 
AND billet number := 9999 
AND work center := "200" 
THEN work center found 


RULE 88 Assign to Avionics 
IF paygrade >= "Kk7" 

AND persons rating Nes" 
AND billet number : 9999 
AND work center := "200" 
THEN work center found 


RULE 89 Assign to Avionics 
IF paygrade >= "EK4" 

AND persons rating "AT" 
AND billet number 9999 
AND work center := "210" 
THEN work center found 


RULE 90 Assign to Avionics 
IF paygrade >= "B4" 

AND persons rating "AR" 
AND billet number 9999 
AND work center := "220" 
THEN work center found 


RULE 91 Assign to Ordnance 
IF paygrade >= "k4" 


AND persons rating = "AO" 
AND billet number := 9999 
AND work center := "250" 


THEN work center found 


RULE 92 Assign to Radar/Fire Control Branch 
IF paygrade >= "K4" 

AND persons rating "AQ" 

AND billet number 9999 

AND work center := "260" 

THEN work center found 


This rule gets 
current job is 


RULE 935 Get the 
CALL work _ctr 
SEND current job 
RETURN work center 
RETURN job length 
THEN get a work center 


RULE 94 


work 
work 
work 
work 
work 
work 
work 
work 
work 
work 
work 
work 
work 
work 
work 
work 
work 
work 
work 
work 
work 
work 


Determine if billet is not a TAD billet 


center 
center 
center 
center 
center 
center 
center 
center 
center 
center 
center 
center 
center 
center 
center 
center 
center 
center 
center 
center 
center 
center 


THEN not_a tad 


END 
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a work center and job length when the 
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